Provider and DefaultDatabase Properties Example

This example demonstrates the Provider property by opening two Connection objects using different providers. It also uses the DefaultDatabase property to set the default database for the Microsoft ODBC Provider.

Public Sub ProviderX()

   Dim cnn1 As ADODB.Connection
   Dim cnn2 As ADODB.Connection

   ' Open a connection using the Microsoft ODBC provider.
   Set cnn1 = New ADODB.Connection
   cnn1.ConnectionString = "driver={SQL Server};" & _
      "server=bigsmile;uid=sa;pwd=pwd"
   cnn1.Open strCnn
   cnn1.DefaultDatabase = "pubs"
   
   ' Display the provider.
   MsgBox "Cnn1 provider: " & cnn1.Provider

   ' Open a connection using the Microsoft Jet provider.
   Set cnn2 = New ADODB.Connection
   cnn2.Provider = "Microsoft.Jet.OLEDB.3.51"
   cnn2.Open "C:\Samples\northwind.mdb", "admin", ""

   ' Display the provider.
   MsgBox "Cnn2 provider: " & cnn2.Provider

   cnn1.Close
   cnn2.Close

End Sub