Thanks again Rene..

I'll try to look at again my code.

I've tried these code also and it works fine.

   Dim objCon As ADODB.Connection
   Dim objCmd As ADODB.Command
   Dim objRst As ADODB.Recordset
   
   Set objCon = New ADODB.Connection
   Set objCmd = New ADODB.Command
  
   objCon.Open ConnectionString
   objCmd.ActiveConnection = objCon
   objCmd.CommandText = "qrySALES"      ' Query Name
   objCmd.CommandType = adCmdUnknown    ' Since I'm using Access Query
                                        ' so I use adCmdUnknown
   Set objRst = objCmd.Execute(, Array("07/08/03", "07/09/03"))
   
   .... other parts of the code here...

Noel