Public Function dbRecCount(oConn As Connection, _
  ByVal sTable As String, _
  Optional ByVal sWHERE As String = "")
 
  Dim oRs As ADODB.Recordset
  On Error Resume Next
  Set oRs = oConn.Execute("SELECT Count(*) FROM [" & sTable & _
    IIf(Len(sWHERE) > 0, "] WHERE " & sWHERE, "]"))
  If Not oRs.EOF And Not oRs.BOF Then
    dbRecCount = oRs(0)
  End If
  oRs.Close
  Set oRs = Nothing
  On Error GoTo 0
End Function

If dbRecCount(oConn, "Tabelle", "MatrikelNr='DeineNummer'") > 0 Then
  ' Matrikel-Nr. existuert bereits
  ...
Else
  ...
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de