Private Sub Form_Load()
    Form1.Enabled = False
 
    Dim dbFilename As String
    Dim test As String
    dbFilename = App.Path + "\hardware.mdb"
    test = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbFilename & _
      ";Persist Security Info=False"
    Debug.Print test
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
      dbFilename & ";Persist Security Info=False"
    Adodc1.CursorLocation = adUseClient
    Adodc1.CommandType = adCmdUnknown
    Adodc1.RecordSource = "select * from hardware"
    Adodc1.Refresh
End Sub