Delete befehl und bestimmtest datum aus der datenbank

[collapsing]

hi leute ..

ich habe 2 probleme
das erste is ich will in einer tabelle einen gewissen datensatz löschen.. nur wie?
hier mein code

    Public Function EintragLoeschen()
        Dim strConn As String

        '*****SQL STATEMENT*****
        Dim sqlStatement As String = "DELETE * FROM Geburtstage WHERE ID = '" & intID & "'"

        Dim dbConn As OleDb.OleDbConnection
        Dim dbCmd As OleDb.OleDbCommand

        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                         "Data Source=C:\Dokumente und Einstellungen\graf\Eigene Dateien\T_GebListe.mdb;"
        dbConn = New OleDb.OleDbConnection(strConn)
        dbConn.Open()

        dbCmd = New OleDb.OleDbCommand(sqlStatement, dbConn)
        dbCmd.ExecuteNonQuery()
        dbConn.Close()
    End Function

PROBLEM 2
ich hab ein programm das geburtstage speichert .. nun will ich in einer listbox alle geburtstage ausgeben die in den nächsten zB.: 30 tagen sind (die zahl wird in einer textbox eingegeben und hat standart 30)

hier der code:

    Public Function anstehendeGeburtstage()
        Dim strConn As String
        Dim strVorname As String
        Dim strNachname As String
        Dim strGeburtsdatum As String
        Dim minTag As String = DateTime.Now.ToString("d")
        Dim maxTag As String = DateTime.Now.AddDays(Me.txtSuchTage.Text).ToString("d")

        '*****SQL STATEMENT*****
        Dim sqlStatement As String = "select Vorname, Nachname, Geburtsdatum 
from Geburtstage 
where Geburtsdatum > '" & minTag & "' AND Geburtsdatum < '" & maxTag & "'"

        Dim dbConn As OleDb.OleDbConnection
        Dim dbCmd As OleDb.OleDbCommand

        '*****CONNECTION STRING*****
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                         "Data Source=C:\Dokumente und Einstellungen\graf\Eigene Dateien\T_GebListe.mdb;"
        dbConn = New OleDb.OleDbConnection(strConn)
        dbConn.Open()
        dbCmd = New OleDb.OleDbCommand(sqlStatement, dbConn)

        '*****DER READER SUCHT OB PASSENDE DATENSÄTZE GEFUNDEN WURDEN*****
        Dim rdr As OleDb.OleDbDataReader = dbCmd.ExecuteReader
        Do While rdr.Read
            If Not rdr.IsDBNull(0) Then
                strVorname = rdr.GetString(0)
            End If

            If Not rdr.IsDBNull(1) Then
                strNachname = rdr.GetString(1)
            End If

            If Not rdr.IsDBNull(2) Then
                strGeburtsdatum = rdr.GetValue(2)
            End If
            Me.LisBoxAnstGeb.Items.Add(strVorname & " " & strNachname & " " & strGeburtsdatum)
        Loop

        '*****READER UND DIE CONNECTION ZUR DATENBANK WERDEN GESCHLOSSEN*****
        rdr.Close()
        dbConn.Close()
    End Function

DANKE