Есть запрос к базе даных. При проверке в SQL+ запрос вызвращает данные, а при запросе из VB відает что не одой записи не обнаруженно.

Dim rsAudit As ADODB.Recordset
Set rsAudit = New ADODB.Recordset
rsAudit.ActiveConnection = cn_AIS
rsAudit.CursorType = adOpenStatic
rsAudit.CursorLocation = adUseClient
ssql = "select ais_audit.t31nach_sum.otd from ais_audit.t31perev, ais_audit.t31nach_sum "
ssql = ssql & "where ais_audit.t31perev.kod='" & Me.txtFind.Text & "' and ais_audit.t31perev.id_rez=ais_audit.t31nach_sum.id_rez "
ssql = ssql & " and (ais_audit.t31perev.type=100 or ais_audit.t31perev.type =1100 or (ais_audit.t31perev.type >1200 and ais_audit.t31perev.type<1300))"
ssql = ssql & " and ais_audit.t31perev.d_check='" & MaxDate & "' " 'group by ais_audit.t31nach_sum.otd "
rsAudit.Open ssql
rsAudit.MoveFirst

Все переменные содержат значения. Подскажите где ошибка.

Дело в том что значение MAXDate я получаю из предыдущего запроса, поэтому преобразовать ее к Американскому формату - проблематично. А как передать через параметры ADO команды

Спасибо разобрался. Проблема действительно была с форматом даты, и после того как в запросе указал d_check=to_date('" & MaxDate & "','dd-mm-yyyy') все заработало!