Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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, _