If (txtDataOD) = "__.__.____" Then Me.txtDataOD.Text = "01.01." & Format(Now(), "yyyy") If (txtDataDO) = "__.__.____" Then Me.txtDataDO.Text = "31.12." & Format(Now(), "yyyy") Dim RsIzvestaj As ADODB.Recordset Set RsIzvestaj = New ADODB.Recordset ' Ova treba samo ako e MY SQL ,za MS SQL i MSACCESS ne treba RsIzvestaj.CursorLocation = adUseClient RsIzvestaj.Open "CALL spSmetki('" & Format(txtDataOD, "yyyy-MM-dd") & "','" & Format(txtDataDO, "yyyy-MM-dd") & "')", cn, adOpenStatic, adLockOptimistic ' Test dali ima zapisi vo recordsetot ' RsIzvestaj.MoveFirst ' Do While Not RsIzvestaj.EOF ' MsgBox RsIzvestaj.Fields(2) ' RsIzvestaj.MoveNext ' Loop ' za Data Grid Set DataGrid1.DataSource = RsIzvestaj DataGrid1.ReBind DataGrid1.Refresh