wha does this code crash access ?

[Guest]

Dim rstSuppliers As ADODB.Recordset
Set rstSuppliers = New ADODB.Recordset
rstSuppliers.CursorLocation = adUseClient
rstSuppliers.Open "Select * From Suppliers", _
CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Set Me.Recordset = rstSuppliers

 

[Ed Metcalfe]

Dim rstSuppliers As ADODB.Recordset
Set rstSuppliers = New ADODB.Recordset
rstSuppliers.CursorLocation = adUseClient
rstSuppliers.Open "Select * From Suppliers", _
CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Set Me.Recordset = rstSuppliers

It doesn't for me.

Do you mean you are getting a VBA runtime error, or the Access process
itself is crashing?

Which version of MS Access? Which line of code causes the crash?

Ed Metcalfe.