Dim ConnMDB As New ADODB.Connection
On Error Resume Next
ConnMDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Text5 & "'"
ConnMDB.Open
If Err <> 0 Then
MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description
End If
On Error Resume Next
ConnMDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Text5 & "'"
ConnMDB.Open
If Err <> 0 Then
MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description
End If
dim strConnection as string
strConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\JacksonChen\桌面\db1.mdb;Persist Security Info=False"
cnn.open strconnection
试过了还是不行, 好像不是方法的问题
出错内容:
(方法 '~' 作用于对象 '~' 失败)
是我后加上去的,没有它时也是一样的错误
我感觉也是ado的问题,怎么样重新安装ado组件,它的安装在那下载?