Private Sub Form_Open(Cancel As Integer)
'How to bind Microsoft Access forms to ADO recordsets
'http://support.microsoft.com/kb/281998
Dim rs As ADODB.Recordset
 
    'Create an instance of the ADO Recordset class, and set its properties
    Set rs = New ADODB.Recordset
    With rs
        Set .ActiveConnection = gCurrentDBCon     'übernehme die global zur 
        ' Verfügung stehende Connection aus dem Haupt-Projekt ( 
        ' CurrentProject.Connection)
        .Source = "dbo.Tabelle1"    'setze hier die eigentlich gewünschte 
        ' Recordsource des Formulars
        .LockType = adLockOptimistic
        .CursorType = adOpenKeyset
        .Open
    End With
 
    Set Me.Recordset = rs    'Set the form's Recordset property to the ADO _
      recordset
 
    Set rs = Nothing
End Sub