Dim dbstring As String = Path.Combine(Application.StartupPath, "db1.mdb")
 Dim tablename As String = "Table1"

   Private Function connectionstring() As String
        Return "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;" & _
        "Jet OLEDB:Database Locking Mode=1;Data Source=" & dbstring & ";Mode=Share Deny None;" & _
        "Jet OLEDB:Engine Type=5;Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:System database=;Jet OLEDB:SFP=False;" & _
        "persist security info=False;Extended Properties=;Jet OLEDB:Compact Without Replica Repair=False;" & _
        "Jet OLEDB:Encrypt Database=False;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;User ID=Admin;Jet OLEDB:Global Bulk Transactions=1"
    End Function

    Private Function querty() As String
        Return "SELECT * FROM " & tablename
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim connect As OleDb.OleDbConnection = New OleDb.OleDbConnection
        connect.ConnectionString = connectionstring()

        connect.Open()

        Dim adapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter

        With adapter
           *******************************************            
            'проблема вот здесь привожу текст ошибки который появляется у меня
            'Additional information: Object reference not set to an instance of an object
           *******************************************
            .SelectCommand.Connection = connect
            .SelectCommand.Connection.ConnectionString = connectionstring()
            .SelectCommand.CommandText = querty()
        End With

        Dim dataset As New DataSet

        adapter.Fill(dataset, tablename)

        connect.Close()

        DataGrid1.DataSource = dataset.Tables(tablename)

    End Sub