请各位高手指教

Question

--VB如何连接数据库

Answer 1

'打开数据库
Public Function OpenDB() As Boolean
   
    Dim strConn As String    On Error GoTo e
    ' 打开连接
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strData & "; "
    Set Conn = New ADODB.Connection
    Conn.Open strConn
   
    ' 打开表
    Set RS = New ADODB.Recordset
    RS.CursorType = adOpenKeyset
    RS.LockType = adLockOptimistic
    RS.Open "select * from table", Conn, , , adCmdTable
    OpenDB = True
    Exit Function
e:
    OpenDB = False
 
End Function

Answer 2

对于不同数据库的连接字符：
http://www.connectionstrings.com