This code will set an ADO recordset as form recordset. Include the following code to the Form_Open event.

Private Sub Form_Open(Cancel As Integer)
Dim objCONN As ADODB.Connection
Dim objRS As ADODB.Recordset

   ' Set an ADO connection to the Access connection
   Set objCONN = CurrentProject.AccessConnection

   ' Set an ADO recordset to get the form recordset
   Set objRS = New ADODB.Recordset

   With objRS
      Set .ActiveConnection = objCONN
      .Source = "SELECT * FROM TABLE"
      .LockType = adLockOptimistic
      .CursorType = adOpenKeyset
   End With

   ' Set the form's Recordset to the ADO recordset
   Set Me.Recordset = objRS
   ' Close objects
   Set objRS = Nothing
  Set objCONN = Nothing

End Sub