no evento ao carregar do seu form continuo;
Private Sub Form_Load()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM suatabela"
rst.Open strSQL, cnn, adOpenKeyset, adLockOptimistic, adCmdText
Set Me.Form.Recordset = rst
End Sub