使用的vb6+adodc+access,sql语句查询错误

Dim str As String
Dim path As String
path = App.path
str = path
If Right(str, 1) <> "\" Then
str = str + "\"
Else
str = str
End If
str = "Provider=Microsoft.Jet.OLEDB.4.0;;Persist Security Info=False;Data Source=" & str & "studentsinfo.mdb"

Adodc1.Recordset.Open "select * from information", str, adOpenStatic, adLockOptimistic

使用的vb6+adodc+access。

请问怎么回事啊？
2楼的，谢谢了，我改为了Dim str As String
Dim path As String
path = App.path
str = path
If Right(str, 1) <> "\" Then
str = str + "\"
Else
str = str
End If
str = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & str & "studentsinfo.mdb"
Adodc1.ConnectionString = str
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "select * from information"
Ad

使用的vb6+adodc+access,sql语句查询错误 关于VB中Adodc.RecordSource的使用 VB使用ADODC。 vb中使用adodc进行查询的方法 vb使用adodc连接数据库的SQL语句问题 AC,AC,AC的使用技巧 adodc的问题 在VB6.0中如何在adodc查询? 关于VB6.0 Sendkeys语句的使用 vb6.0使用的时候出现问题