Connect to MSAccess database using data control in Visual Basic

The following code will connect to MSAccess database using datacontrol and sql syntax.


'add a data control to your application

'add a command button


‘form load add the following code

Private Sub Form_Load()


    Data1.RecordsetType = 1

    Data1.DatabaseName = Your Database Path 'ex. c:\\batabasename.mdb


End Sub


Private Sub Command1_Click


     With Data1

          .RecordSource = "SELECT * FROM tablename"


          With .Recordset

               If .BOF = True Then

                    Msgbox "No Current Record"


                    Msgbox "Current Records Found"

               End If

          End With

     End With


End Sub

Added on August 27, 2008 Comment