Hallo!
Ich möchte mit VB eine Access Datenbank auslesen aber nur eine Spalte (Erscheinungs_Termin) und am ende möchte ich es mit dem heutigen Datum vergleichen:
z.B.: Heute ist der 10.03.2010 und als Termin ist auch 10.03.2010 denn soll er mir in einer Textbox Anzeigen das Heute der Termin ist.
Ich hoffe ihr könnt mir helfen 
Ich brauch nur wissen wie ich einen Datensatz auslesen kann.
Meinst du sowas ? Da ich deine Datenbank nicht kenne - hier beispielweise eine Adressdatenbank mit der Tabelle adr. Als vergeleichsfeld wird hier das Feld Geburtstag genommen. So ähnlich ist es wohl auch bei dir mit dem Datumsfeld Erscheinungs_Termin.
’ VB 6.0
'Project-Verweise Microsoft DAO 3.51 Object Library zuvor einbinden wegen Access Datenbank
'Variablen setzen
Dim Rs As Recordset
Dim db As Database
Private Sub Form_Load()
'Datenbank im aktuellen Verzeichniss öffnen
Set db = OpenDatabase(App.Path & „\Adressen.mdb“)
'Tabelle mit Recordset verbinden (Hier die ganze Tabelle)
Set Rs = db.OpenRecordset(„adr“)
'Erster Datensatz auswählen
Rs.MoveFirst
'Für jeden Datensatz in Tabelle
While Not Rs.EOF
If CDate(Rs.fields(„Geburtstag“)) = Date Then
MsgBox Rs.fields(„Nachname“) + " hat heute Geburtstag !", vbInformation, today
End If
Rs.MoveNext
Wend
Rs.Close
set db = Nothing
End Sub
Falls du das als VBA direkt in Access meinst, das ganze mal unter Access 2007
Option Compare Database
Sub checkDate()
Dim rs As Recordset
Dim db As Database
Set db = CurrentDb()
'Tabelle mit Recordset verbinden (Hier die ganze Tabelle)
Set rs = db.OpenRecordset(„Tabelle1“)
'Erster Datensatz auswählen
rs.MoveFirst
'Für jeden Datensatz in Tabelle
While Not rs.EOF
If CDate(rs.Fields(„Erscheinungs_Termin“)) = Date Then
MsgBox rs.Fields(„Name“) + " hat heute Geburtstag !", vbInformation, Date
End If
rs.MoveNext
Wend
rs.Close
Set db = Nothing
End Sub