Function PozivQ() Dim SQL As String Dim I As Boolean SQL = "SELECT * FROM MsysObjects" I = QueryTemp(SQL) End Function