Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
Dim connstr As String
connstr = "Provider=MSDASQL.1;" & _
"Driver={Microsoft Excel Driver(*.xls)};" & _
"DBQ=E:\Dct\version_1.xls"
conn.Open connstr
End Sub
還是有錯
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
Dim connstr As String
connstr = "Provider=MSDASQL.1;" & _
"Driver={Microsoft Excel Driver(*.xls)};" & _
"DBQ=E:\Dct\version_1.xls"
conn.Open connstr
End Sub
還是有錯
全站熱搜
留言列表