ADO Connection Strings
    Here are several ADO Connection Strings.
Microsoft Access
     If you are using Workgroup (System Database)
      sCS = "Provider=Microsoft.Jet.OLEDB.4.0;"
      sCS = sCS & "Data Source=c:\somepath\mydb.mdb;"
      sCS = sCS & "Jet OLEDB:System Database=MySystem.mdw;"

      objConn.Open sCS, "UserName","Password"
      ' {do something}
      objConn.Close
      Set objConn = nothing
     If your MDB has a database password
      sCS = "Provider=Microsoft.Jet.OLEDB.4.0;"
      sCS = sCS & "Data Source=c:\somepath\mydb.mdb;"
      sCS = sCS & "Jet OLEDB:Database Password=MyDbPassword;"

      objConn.Open sCS, "UserName","Password"
      ' {do something}
      objConn.Close
      Set objConn = nothing
     If want to open up the MDB exclusively
      objConn.Mode = adModeShareExclusive

      sCS = "Provider=Microsoft.Jet.OLEDB.4.0;"
      sCS = sCS & "Data Source=c:\somepath\mydb.mdb;"
      sCS = sCS & "User Id=admin;Password=;"

      objConn.Open sCS
      ' {do something}
      objConn.Close
      Set objConn = nothing
SQL Server
     With SSPI
      On Error Resume Next

      strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;" & _
           "Integrated Security=SSPI;" & _
           "User ID=" & """" & ";" & _
           "Password=" & """" & ";" & _
           "Initial Catalog=" & sCatalogName & ";" & _
           "Data Source=" & sDSN & ";" & _
           "Connect Timeout=10" & _
           "Persist Security Info=False"

      cn.Open strConn
     WithOut SSPI
      On Error Resume Next

      strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;" & _
           "User ID=" & sUserName & ";" & _
           "Password=" & sPassword & ";" & _
           "Initial Catalog=" & sCatalogName & ";" & _
           "Data Source=" & sDSN & ";" & _
           "Connect Timeout=10" & _
           "Persist Security Info=False"

      cn.Open strConn
Oracle
      On Error Resume Next

      strConn = "Provider=MSDAORA.1;" & _
           "User ID=" & sUserName & ";" & _
           "Password=" & sPassword & ";" & _
           "Data Source=" & sSID_Name & ";" & _
           "Persist Security Info=False"

      cn.Open strConn
Sybase
      On Error Resume Next

      strConn = "Driver={SYBASE ASE ODBC Driver};" & _
           "Srvr=" & sServerName & ";" & _
           "Uid=" & sUserName & ";" & _
           "Pwd=" & sPassword & ";" & _
           "Database=" & sDatabaseName & ";"

      cn.Open strConn