>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

You will have problems adding a progress bar to that method!

Normally when using a progress bar you have some idea of what "progress" have been done. With OpenRecordset, there is nothing that says it.

If you absolutely want a progress bar, guess the time your Openrecordset take, add a timer control and make your progress bar advance this way! Because time will be guessed, maybe users will see 100% completion and still processing!