'Parameter Definieren
        SQL.Parameters.Add("@Name", OleDbType.VarChar)
        SQL.Parameters.Add("@Nachname", OleDbType.VarChar)
        SQL.Parameters.Add("@Adresse", OleDbType.VarWChar)
 
        'Parameter Füllen
        SQL.Parameters("@Name").Value = Name
        SQL.Parameters("@Nachname").Value = Nachname
        SQL.Parameters("@Adresse").Value = Adresse
 
        SQL.CommandText = "SELECT COUNT(*) FROM Liste " & _
                                "WHERE (Name = @Name)" & _
                                " AND (Nachname = @Nachname)" & _
                                " AND (Adresse = @Adresse)"

        'Parameter Füllen
If Name = "" then
        SQL.Parameters("@Name").Value = "Is Null"
else
        SQL.Parameters("@Name").Value = Name
End If
 
...