データベースへの接続

  mdb への接続例です。
   

Public Const ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

Sub 接続()
    
    Dim DB_Connect                      As ADODB.Connection
    Dim DB_Cmd                          As ADODB.Command
        
    Set DB_Connect = New ADODB.Connection
    
    DB_Connect.Open ConnectionString & "C:\test.mdb" & ";"
    
    Set DB_Cmd = New ADODB.Command

    DB_Cmd.ActiveConnection = DB_Connect
                
    'ここにデータベースへの操作を記述します。
       
    Set DB_Cmd = Nothing
    
    DB_Connect.Close
    
    Set DB_Connect = Nothing

End Sub

  上記は Access への接続例です。
  SQL Server に 接続する場合は、ConnectionString の部分だけ変更します。

DB_Connect.Open "Provider=SQLOLEDB;" & _
"Server=192.168.x.x;Database=データベース名;User Id=ID;Password=PW;"
  
  'または
  
DB_Connect.Open "Provider=SQLOLEDB;" & _
                   "Server=PC名;Database=データベース名;User Id=ID;Password=PW;"