Hi, i post from Italy, and i have the following question for you about Excel VBA

I am trying to import records from a closed Access DB, but i don't know how to select DBfields according to a specified date.
I mean:

i want to select only the records where the field 'DateOfBirth' is < than 'MyDate', f.e. 01/02/1975.

i tried with the following code, but the VBA has gone debugging.

szSQL = "SELECT * FROM RAS WHERE [MyDate] > [DateOfBirth]"rs.Open szSQL, cn, adOpenKeyset, adLockOptimistic, adCmdText

could you please tell me where is the error?
thaenks in advance


Fabio

Hmm... I'm assuming MyDate and DateOfBirth are both date fields and are also named in the database without spaces?
In Tools > References add "ActiveX Data Objects Recordset 2.6 Library" and "Microsoft ActiveX Data Objects 2.6 Library" and Try this:

Dim Current_Connection as ADODB.Connection, oCommand as ADODB.Command, rsRecordset as Recordset, sSQL as string
sSQL = "Select * From RAS Where [MyDate] > [DateOfBirth];"
Set Current_Connection = New ADODB.Connection
Current_Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0"
Current_Connection.Open "C:\My.mdb"
Set oCommand = New ADODB.Command
Set oCommand.ActiveConnection = Current_Connection
Set rsRecordset = New ADODB.Recordset
rsRecordset.Open sSQL, Current_Connection, adOpenStatic
if rsRecordset.RecordCount < 1 then
  msgbox "No records found matching criteria",,"No Records Returned"
else
  ***Do Desired Manipulation with rsRecordset***
end if
rsRecordset.Close
Current_Connection.Close