приведение даты для select

[xamillion]

Чего-то лыжи не едут уже... не могу с датой справится...

Sub search_by_DateRog()

          Dim Numer As Long
          Set ds = Workbooks("Birth.xls").Sheets("Лист1")
  
   
Const sPath1 = "C:\Birth\"


ds.Activate


    Range("C2:AA65000").Select
    Selection.Delete

    Range("A2").Select


i = 2
'records.MoveFirst
While Not IsEmpty(ds.Cells(i, 1).Value)

       Dim records As New ADODB.Recordset

       Dim oConn1 As New ADODB.Connection
        
        
 
            sCon1 = "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & sPath1 & ";"
         
        oConn1.Open (sCon1)


    Dim sqlString As String
    
sqlString = "SELECT * " + _
"FROM Birth WHERE d_rog = " & ds.Cells(i, 2) & "" - это дата, выдает ошибку: Число содержит синтаксическую ошибку, ctod всунуть не удалось

records.Open sqlString, oConn1, adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic





If records.EOF Then
ds.Cells(i, 2).Value = ""

    Else
    ds.Cells(i, 2).Value = records.Fields("kod")
    
End If
    
  Set records = Nothing

    Set oConn1 = Nothing
  
    
Wend

End Sub

Подскажите, плиз, как дату преобразовать для сравнения!

[doober]

"FROM Birth WHERE d_rog =Cdate('" & ds.Cells(i, 2) & "');"

Смазка наверное не для асфальта

[xamillion]

спс, теперь самому смешно... чего я только сюда не пихал )))