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 ne treba RsIzvestaj.CursorLocation = adUseClient Dim cmd As ADODB.Command Set cmd = New ADODB.Command With cmd .ActiveConnection = cn .CommandType = adCmdStoredProc .CommandText = "spSmetki" .Parameters.Append cmd.CreateParameter("OdData", adDate, adParamInput, , txtDataOD) .Parameters.Append cmd.CreateParameter("DoData", adDate, adParamInput, , txtDataDO) End With Set RsIzvestaj = cmd.Execute Set cmd = Nothing ' 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