Angenommen: DB = Database  - > Object besteht und instanziert.
 
Private Function FindExistID(Byval sTabName As String, Byval sID As String) As _
  Long
      Dim SQL As String
      Dim Rs As RecordSet    
 
      SQL = "SELECT Count(*) As Anzahl FROM " & sTabName & " WHERE ID LIKE '" & _
        sID & "*'"
      Set Rs = DB.OpenRecordSet(SQL, dbOpenDynaset)
      FindExistID = RS!Anzahl
 
      Rs.Close
End Function