Dim oConn As New ADODB.Connection
  Dim oRs As New ADODB.Recordset
  Dim sSQL As String
 
  With oConn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source") = "C:\Dokumente und Einstellungen\Dieter" & _
      "Otter\Eigene Dateien\Db1.mdb"
    .Properties("Persist Security Info") = False
    .Open
  End With
 
  sSQL = "SELECT * FROM Kontaktpersonen WHERE Format(" & _
    "kontaktpersonen_geburtstag, ""mmdd"") BETWEEN '0101' AND '1231'"
  oRs.CursorLocation = adUseClient
  oRs.Open sSQL, oConn, adOpenStatic, adLockOptimistic
 
  If oRs.RecordCount > 0 Then
    MsgBox oRs.RecordCount
  Else
    MsgBox "No records..."
  End If
 
  oRs.Close
  oConn.Close

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de