Public Function tabellenlookup(suchfeld, tabelle, whereregel, rueckgabe) As _
  String
Dim RS As New ADODB.Recordset
Dim rueckgabewert
Dim where
Dim strSQL
If whereregel = "" Then
where = ""
Else
where = " WHERE " & "'" & whereregel & "'"
End If
With RS
.Open "SELECT " & suchfeld & " FROM " & tabelle & where, _
  CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
 
 
 
tabellenlookup = rueckgabe
RS.Close
RS.ActiveConnection = Nothing
 
End With
End Function