Ado打开数据库

SQL 

ConnectString = "Provider=SQLOLEDB.1;User ID=sa;Password=;Initial Catalog=Insect_DB;Data Source=127.0.0.1"
  
   cnn.open ConnectString
   If InStr("INSERT,DELETE,UPDATE,CREATE,ALTER,DROP,EXEC", UCase$(sTokens(0))) Then
      cnn.Execute sql
      MsgString = sTokens(0) & " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.CursorLocation = adUseClient
      rst.open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic

Access

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AccessFile
   
        Set connConnection = New ADODB.Connection
        connConnection.CursorLocation = adUseClient
        connConnection.open strConnect
        Set mrc = New ADODB.Recordset
        mrc.CursorType = adOpenKeyset
        mrc.CursorLocation = adUseClient
        mrc.LockType = adLockOptimistic
        mrc.Source = "Select * From " & cmbTables.Text
        mrc.ActiveConnection = connConnection
        mrc.open