How to put progress bar when Loading the record with some criteria by using SQL and how to add cancel button .. so when the cancel button clicked the loading process will cancelled .. thanks

For example :

Dim DBCustomer as Database
Dim RCustomer as Recordset

Set DBcustomer = OpenDatabase(Customer.DatabaseName, False, True, Customer.Connect)
Sqltrap = "select * from " & Customer & " where paymentdate between " & "#" & txtFromDate.Text & "#" & " and " & "#" & txtToDate.Text & "#" & "Order by CustomerName"
Set RCustomer = DBCustomer.OpenRecordset(Sqltrap)