Dim oConn As ADODB.Connection
Dim oRs As ADODB.Recordset
Dim sSQL As String
 
Set oConn = New ADODB.Connection
With oConn
  .Provider = "Microsoft.Jet.OLEDB.4.0"
  .Properties("Data Source") = "datenbank.mdb"
  .Properties("Persist Security Info") = False
  .Open
End With
 
sSQL = "SELECT * FROM Tabelle WHERE Feld = Kriterium ORDER BY Feld"
 
Set oRs = New ADODB.Recordset
With oRs
  .CursorLocation = adUseClient
  .Open SQL, oConn, adOpenStatic, adLockOptimistic
  If .RecordCount > 0 Then
    ' Jepp - da wurde doch tatsächlich etwas gefunden
  End If
End With
oRs.Close

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de