Set cmd = New ADODB.Command With cmd .ActiveConnection = cn .CommandTimeout = 3600 .CommandType = adCmdStoredProc .CommandText = "spKunja" .Parameters.Refresh .Parameters("@Data") = Format(CDate(txtData), "yyyy.MM.dd") & " 12:00:00" .Parameters("@Tip_Ponuda") = cboTip_Ponuda.BoundText Set rsJadejna = .Execute End With