Public Function DLookupZ(Polje As String, Tabela As String, Imebaze As String, Optional Uslov = "") As Variant
Dim cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim StrSQL As String

StrSQL = "SELECT " & Polje & " FROM " & Tabela
If Uslov <> "" Then
StrSQL = StrSQL & " WHERE " & Uslov
End If
cnn.Open _
    "Provider=Microsoft.Jet.OLEDB.4.0;" _
    & "Data Source=" & Imebaze & ";"
Rs.Open StrSQL, cnn, _
    adOpenForwardOnly, adLockReadOnly
If Not (Rs.EOF And Rs.BOF) Then
Rs.MoveFirst
DLookupZ = Rs(Polje).Value
Else
DLookupZ = ""
End If
End Function