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
還是有錯
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()