Anybody can help me .. how to add Progress bar and also add DoEvents()when the OpenRecordSet command run. because The statement below wasting my time to wait ..

Dim RS as Recordset
Dim DBDS as Database
Dim QdfTrap as QueryDef
Dim txtDateTrap as Date

strParm = "PARAMETERS [txtDate] DateTime; "
SQLTrap = strParm & "Select * from Sales where Sdate = " & "#"& txtDate.Text & "#" & " Order by pl_no, line, cproc, worker"
Set QdfTrap = DBDS.CreateQueryDef("", SQLTrap)
Set PrMeter = QdfTrap2.Parameters!txtDate
txtDateTrap = txtDate.Text
PrMeter = txtDateTrap
Set RS = QdfTrap.OpenRecordset(dbOpenDynaset)

thanks very much for any advice or suggestion

Best Regards
Winan