Zäume das Pferd doch mal anders herum auf:
Code:
Dim AutorVorname As String =Trim(Vorname)
Dim AutorNachname As String =Trim(Nachname)
Dim rsAutor As RecordSet =
DB.SQLSelect("SELECT * FROM Autoren WHERE (Nachname = '" + AutorNachname + "' AND Vorname = '" + AutorVorname + "')")
// Alternative
Dim rsAutor As RecordSet =
DB.SQLSelect("SELECT * FROM Autoren WHERE (Nachname = '" + AutorNachname + "' AND Vorname LIKE '" + AutorVorname + "%'")
Return False
//wenn Autor bereits vorhanden
If rsAutor <> Nil Then
'If not rsAutor.EOF Then // ggf. rsAutor.IsEmpty oder über rsAutor.Count (RecordCount) ... also quasi ist Leer
'Return True
'End If
End If
... ohne Gewährleistung für die Syntax...