Dim SQL As String
Dim Rs As Recordset
 
SQL = "SELECT KdKaliID FROM tblKalibrieredaten WHERE KdSensorkali =200 AND" & _
  "KdSetup =109"
 
Set Rs = Db.OpenRecordset(SQL)
If Rs.RecordCount > 0 Then
  MsgBox Rs(0)
End If
Rs.Close

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de