can anyone help with this when the user enters the start date and finish date all records
that are in table work and that match the dates in field adate should be selected.
but I get the error too few parameters expected 1

thanks jim

Dim strSql As String
Dim strMsg As String
  Set ws = DBEngine(0)
  ws.BeginTrans
bInTrans = True
  Set db = ws(0)

  'Step 2: Execute the append.
  strSql = "INSERT INTO work1 ( ID, CONTRACT, JOBNo , TARGET, ADATE, TOTAL, LEADER)" & _
    "IN ""f:\database\FABRICATION WORK.mdb"" " & _
    "SELECT ID, CONTRACT, JOBNo , TARGET, ADATE, TOTAL, LEADER FROM WORK WHERE ADATE between #" & [Forms]![Archive]![STARTDATE] & "# and #" & [Forms]![Archive]![finishdate] & "# ;"

I don't understand, you want to take records from one table between two dates and append them to another table?

I would have the user select the dates on your form, then in the query criteria put this line:

BETWEEN Forms!Archive.StartDate AND Forms!Archive.FinishDate

Then just do a DoCmd.OpenReport, or DoCmd.RunQuery (which would run your Append Query above and pull the dates off your form without passing them in code. No need for all this code.

HTH

mmcdonal