Dear readers

I used to have experience with VB6 and for a while i am making my steps into vb2010...

I have a database in MS access with several tables... and i want to show one of its tables in a datagridview. I know how to set a connection to the database and know what a database is and what it can do.

The problem is in this code that it is without code-errors ) but does not display the table into my datagridview....

the code in public class form1 is

Private DataGridViewBoogieProjectgegevens As New DataGridView()
    Private BindingSourceDataGridViewBoogieProjectgegevens As New BindingSource()
and in the same form but in a private sub

Private Sub BoogieDatabaseInleesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoogieDatabaseToolStripMenuItem.Click
        Dim conBoogieDatabase As New OleDbConnection
        Dim OpenDatabaseDialog As New OpenFileDialog
        Dim strBoogiePadFile As String

            strBoogiePadFile = ""
            'Select the Boogie database   
            If strBoogiePadFile = "" Then
                OpenDatabaseDialog.DefaultExt = "mdb"
                OpenDatabaseDialog.Filter = "Databasefiles (*.mdb)|*.mdb"
                If Not strBoogiePadFile = vbNullString Then
                    OpenDatabaseDialog.InitialDirectory = strBoogiePadFile
                End If
                strBoogiePadFile = OpenDatabaseDialog.FileName
                frmBoogie.txtPadFileBoogie.Text = strBoogiePadFile
            End If
            'Make the connection to the database
            conBoogieDatabase = SetDatabaseConnectie(strBoogiePadFile)
            'Open the database if its not opened already
            If conBoogieDatabase.State = ConnectionState.Closed Then conBoogieDatabase.Open()
            'Fill a new dataset-tabel and bind it to BindingSource
            Me.BindingSourceDataGridViewBoogieProjectgegevens.DataSource = GetDataAdapter("Projectgegevens", conBoogieDatabase)
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Fout in BoogieDatabaseInleesToolStripMenuItem_Click")
        End Try
    End Sub
and 2 functions in a different module for the connectionpart and adapter

Public Function SetDatabaseConnectie(ByVal strDatabaseNaam As String) As OleDbConnection
        Dim conDatabase As New OleDbConnection
        'conDatabase.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" & _
        '                             "Dbq=" & strDatabaseNaam & ";" & _
        '                             "Uid=admin;" & _
        '                             "Pwd="
        conDatabase.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDatabaseNaam & ";Persist Security Info=False;User Id=admin;Password=;"
        Return conDatabase
        conDatabase = Nothing
    End Function
    Public Function GetDataAdapter(ByVal strTabel As String, ByVal pConnectie As OleDbConnection, Optional ByRef pAdapter As OleDbDataAdapter = Nothing) As DataSet
        Dim strSQL As String = "Select * from " & strTabel
        Dim pTabel As New DataSet
        pAdapter = New OleDbDataAdapter(strSQL, pConnectie)
        pAdapter.Fill(pTabel, strTabel)
        Return pTabel
    End Function