Question

vb 指定的初始化字符串不符合OLE DB 规定

Public db As New ADODB.Connection
Public RS As New ADODB.Recordset
Public Sub SJK(db) '连接数据库过程
Dim ConnectionString As String
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = ' & App.Path & '\db.mdb;Persist Security Info=False"
db.Open (ConnectionString)
End Sub
目的是为了连接access数据库，代码大部分是网上的，因为直接复制的用不了，所以根据个人理解改动了，不知道哪里有问题，希望各位指正，谢谢。

Answer 1

改成下面的代码试试

Public db As New ADODB.Connection
 Public RS As New ADODB.Recordset
Public Sub SJK(db As ADODB.Connection) '连接数据库过程
Dim ConnectionString As String
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = ' & App.Path & '\db.mdb;Persist Security Info=False"
db.ConnectionString = ConnectionString
db.Open (ConnectionString)
End Sub

追问

谢谢，但是我改了之后还是出现一样的错误，请问还有什么方法吗？

追答

更改成:ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\db.mdb;Persist Security Info=False"