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, _