数据绑定
请问哪位,能告诉我这段代码哪里错误吗??
Private Sub Form_Load()
Dim Conn As New ADODB.Connection
Dim Rc As New ADODB.Recordset
Dim Sql As String
Sql = "select * from xs"
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=app.path & '\data.MDB'&';Persist Security Info=False'"
Conn.Open
Rc.Open Sql, Conn, adOpenKeyset, adLockOptimistic
Set da1.DataSource = Rc
da1.Refresh
End Sub
运行后出现如下错误:
实时错误'-2147217805(80040e73)'
指定的初始化字符串不符合OLE DB规定
调试处指定为:
conn.open