CodeItBetter Programming Another VB Programming Blog

'Database - How to Connect to a data source using ADO and retrieving the data.
'Create a reference to 'Microsoft ActiveX Data Object 2.0 Library'

Private Sub Form_Load()
    'Declare the connection and recordset objects
    Dim cnData As Connection
    Dim rs As Recordset
 
    'Instantiate the objects
    Set cnData = New Connection
    Set rs = New Recordset
 
    'Set the connection string
    cnData.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=<<PATH TO DATABASE>>"
    cnData.Open
 
    'Code to test the connection
    If cnData.State = adStateOpen Then MsgBox "Connection good."
 
    'Get data from the database connection
    rs.Open "<<SQL STATEMENT>>", cnData
 
    'For testing purposes, write to debug window
    Debug.Print rs!<<DATABASE_COLUMN_FIELD_NAME>>
 
    'Make sure to close the connection and release cnData
    cnData.Close
    Set cnData = Nothing
End Sub