Problem mit select auf DataSet

[SeppOS]

Hallo

ich habe ein Problem beim selectieren von Daten. Er führt zwar das Select aus, zeigt mir dann auch die richtige anzahl an Zeilen im DataGridView an, aber die falschen Spalten mit irgend welchen "komischen" werten, wie bekomme ich ihn dazu, die richtigen Spalten anzuzeigen?
Ich will nach Datum selectieren, hier ist mein code und im Anhang die Bilder vor und nach dem selectieren:

Public Class Datenbank

#Region "Variablen definieren"
    Private dbpath As String = _
    System.IO.Path.Combine(Application.StartupPath, "UserDB.mdb")
    Private conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbpath & ";")
    Private sql As String = "SELECT * FROM Bestellungen;"
    Private cmd As New OleDb.OleDbCommand(sql, conn)
    Private da As New OleDb.OleDbDataAdapter(cmd)
    Private ds As New DataSet
    Dim time As Date = Date.Today()
#End Region

________________________________________________________________________

    Public Sub DB_Laden(ByRef DataGrid As DataGridView)
        Try
            conn.Open()
            ds.Clear()
            da.Fill(ds, "Bestellungen")
            DataGrid.DataSource = ds.Tables("Bestellungen")
        Catch ex As OleDb.OleDbException
            MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
                MessageBoxIcon.Exclamation)
        Finally
            'Verbindung zur Datenbank auf jeden Fall wieder schließen
            conn.Close()
        End Try
    End Sub

________________________________________________________________________

    Public Sub DB_Select(ByRef DataGrid As DataGridView, ByRef select_text As String, ByRef tabel As String)
        DataGrid.DataSource = ds.Tables("Bestellungen").Select("Datum = #06/22/2007#") ' & time.Month & "/" & time.Day & "/" & time.Year & "#")
    End Sub

End Class