Dim ConStr As String = ("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\db1.mdb;user id=admin;jet oledb:database password=1234")

    Dim Conn As New OleDbConnection(ConStr)

 

 

 

    Dim DataSet1 As New DataSet

    Dim SQLstr As String = "SELECT * FROM Table1"