I'm somewhat new to ado and am having a problem opening aform. It takes over a minute to start when I use 'SELECT' to gather all the records... is there a better way. Below is a snippet of the code.
Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "Data Source=f:\Clear\Clear.mdb"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "SELECT * from FsrData,CustList WHERE FsrData.ServCust=CustList.CustNum", db, adOpenStatic, adLockOptimistic
Any help or ideas to speed up entry into the form would be appreciated
Colin
Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "Data Source=f:\Clear\Clear.mdb"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "SELECT * from FsrData,CustList WHERE FsrData.ServCust=CustList.CustNum", db, adOpenStatic, adLockOptimistic
Any help or ideas to speed up entry into the form would be appreciated
Colin