他说得没错,例如: dim PMyCon as ADODB.Connection dim FileName as String 'FileName为你要连接的数据库名 Set PMyCon = New ADODB.Connection With PMyCon .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FileName + ";Mode=ReadWrite;Persist Security Info=False" .ConnectionTimeout = 500 .CursorLocation = adUseClient .Open End With当然,还有其他的一些属性,如CursorType、CursorLocation 、LockType等,根据你的需要设定他。
dim PMyCon as ADODB.Connection
dim FileName as String 'FileName为你要连接的数据库名
Set PMyCon = New ADODB.Connection
With PMyCon
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FileName + ";Mode=ReadWrite;Persist Security Info=False"
.ConnectionTimeout = 500
.CursorLocation = adUseClient
.Open
End With当然,还有其他的一些属性,如CursorType、CursorLocation 、LockType等,根据你的需要设定他。