Запроос с использованием даты

Private Sub Êíîïêà6_Click()
Dim strSQL As String
Dim ds As DAO.Recordset
Dim data As Date
data = DMax("Дата", "tbl_Otchet")
strSQL = "SELECT* From [tbl_Otchet 1] WHERE [tbl_Otchet 1].Ãîä = 9 AND [tbl_Otchet 1].Дата > data;"

Set ds = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

If ds.RecordCount > 0 Then
Почему пишет Слишком мало параметров Требуется один
это связано с датой потому как без этого условия работает как сделать правильно этот запрос он должен отбирать записи в таблице tbl_Otchet 1] выше последней даты в таблице tbl_Otchet"
Заранее спасибо

igor701

Private Sub Êíîïêà6_Click() Dim strSQL As String Dim ds As DAO.Recordset Dim data As Date data = DMax("Дата", "tbl_Otchet") strSQL = "SELECT* From [tbl_Otchet 1] WHERE [tbl_Otchet 1].Ãîä = 9 AND [tbl_Otchet 1].Дата > data;" Set ds = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset) If ds.RecordCount > 0 Then Почему пишет Слишком мало параметров Требуется один это связано с датой потому как без этого условия работает как сделать правильно этот запрос он должен отбирать записи в таблице tbl_Otchet 1] выше последней даты в таблице tbl_Otchet" Заранее спасибо

strSQL = "SELECT* From [tbl_Otchet 1] WHERE [tbl_Otchet 1].Ãîä = 9 AND [tbl_Otchet 1].Дата > " & Format(data, "\#mm\/dd\/yyyy\#")

`,
спасибо!