OPTION EXPLICIT ' ! - nie vergessen - !
Public Function tabellenlookup(suchfeld as string, tabelle as string, optional _
  where as string) As String
Dim RS As New ADODB.Recordset
if len(where)>0 then where = " where " & where
RS.Open "SELECT " & suchfeld & " FROM " & tabelle & where, _
  CurrentProject.Connection, adOpenKeyset, adLockOptimistic
tabellenlookup = RS.Fields(suchfeld).Value
RS.Close
RS.ActiveConnection = Nothing
End Function

<pre><code>OPTION EXPLICIT ' ! - nie vergessen - !
Public Function tabellenlookup(suchfeld as string, tabelle as string, optional _
  where as string) As String
Dim RS As New ADODB.Recordset
if len(where)>0 then where = " where " & where
 
WITH RS
.Open "SELECT " & suchfeld & " FROM " & tabelle & where, _
  CurrentProject.Connection, adOpenKeyset, adLockOptimistic
tabellenlookup = .Fields(suchfeld).Value
.Close
.ActiveConnection = Nothing
END WITH
End Function