Private Sub ListeTA_DblClick(Cancel As Integer)
Dim strKrit As String
    strKrit = "Adressenlistennr =" & Me!ListeTA
    DoCmd.OpenForm "PKW", , , strKrit
    DoCmd.Close acForm, "TÜV"
End Sub

Private Sub Kombinationsfeld52_AfterUpdate()
    On Error Resume Next
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[AdressenlistenNr] = " & Str(Nz(Me![Kombinationsfeld52], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
      "Z:\mdb\db\dil-pkw_Back.mdb"
 
Dim rs As ADODB.Recordset
On Error Resume Next
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM PKW", conn, adOpenStatic, adLockPessimistic
    rs.MoveFirst
    Do While Not rs.EOF
 
Me.List2.AddItem rs.Fields("Angebotsnummer").Value