Attribute VB_Name = "basConnExternal"
Option Compare Database
Option Explicit

Sub ConnectExternalDB()

'Create a connection to an external DB and
'open a recordset.

'Declare and set Path and Connection Strings
Dim strDBPath As String
strDBPath = "C:\MyDatabase\MyNewDatabase.mdb"
Dim strConnString As String
strConnString = "Microsoft.Jet.OLEDB.4.0;"

'Declare and set Connection and Recordset Objects
Dim cnConn As ADODB.Connection
Dim rsTable As ADODB.Recordset
Set cnConn = New ADODB.Connection
Set rsTable = New ADODB.Recordset

cnConn.Provider = strConnString
cnConn.Open strDBPath

'Open the table
rsTable.Open "tblNames", cnConn, adOpenStatic

'Print out all FirstNames to the Immediate Window
rsTable.MoveFirst
    Do Until rsTable.EOF
        Debug.Print rsTable!FirstName
    rsTable.MoveNext
    Loop

'Clean up...
rsTable.Close
cnConn.Close
Set rsTable = Nothing
Set cnConn = Nothing

End Sub