Public Sub FillDataTable(ByRef dt As DataTable)
        Try
            Dim sCN As String = "Data Source=(local);Initial" & _
              "Catalog=Datenbankname; UserId=;Password=;"
            Dim sql As String = "SELECT * FROM tabellenname ORDER BY ID"
            Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(sCN) 
            Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, _
              cn)
 
            Dim cmd As OleDb.OleDbCommandBuilder = New _
              OleDb.OleDbCommandBuilder(da)          
            da.Fill(dt)
 
        Catch ex As OleDb.OleDbException
            MsgBox(ex.Message)
        End Try
    End Sub