Assign form Recordset in its open action

 
Private Sub Form_Open(Cancel As Integer)

    Dim con As ADODB.Connection
    Dim myRecordset As ADODB.Recordset
    Dim strFrmNm As String
    
    Set myRecordset = New ADODB.Recordset
    myRecordset.CursorType = adOpenKeyset
    myRecordset.LockType = adLockOptimistic

    Set con = New ADODB.Connection
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\store.mdb;"
       
    myRecordset.Open "SELECT * FROM Employees", con
    Set Me.Recordset = myRecordset
    
    myRecordset.Close
    con.Close
    Set myRecordset = Nothing
    Set con = Nothing

End Sub

Related examples in the same category

1.	Writing the Form_Error Event Procedure
2.	CancelEvent: DoCmd.CancelEvent()
3.	IsLoad function
4.	Form Before Update action
5.	The Undo event executes before changes to a row are undone.
6.	Key down event
7.	If the data in the form dirty
8.	Form_Filter
9.	You can not only check how the filter was invoked, but you can also intercept the process when the filter is applied.
10.	The Load Event Assigning a Recordset Object to the Form
11.	Code for the Move Previous Button
12.	Code for the Move Next Button
13.	Code for the Add Button
14.	Deleting a Record
15.	Code for the Find Button

Assign form Recordset in its open action : Form Events « Forms « VBA / Excel / Access / Word

Related examples in the same category