CodeItBetter Programming Another VB Programming Blog

'Database - Opens an ADO connection and recordset.
Dim rst As ADODB.Recordset
Dim conn As ADODB.Connection
'Set up connection
Set conn = New ADODB.Connection
conn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
conn.ConnectionString = "Data Source=C:\path\filename.mdb"
conn.Open
Set rst = New ADODB.Recorset
rst.Open "TableName", conn, adOpenDynamic, adLockOptimistic, adCmdTable
'Perform necessary record operations
rst.Close
Set rst = Nothing
'Close the connection
conn.Close
Set conn = Nothing