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
Set rs = New ADODB.Recordset
On Error Resume Next
rs.Open "SELECT * FROM PKW", conn, adOpenStatic, adLockPessimistic
    rs.MoveFirst
    Do While Not rs.EOF
 
Me.List2.AddItem rs.Fields("Angebotsnummer").Value'hier wird eine Listbox
                                                  'mit allen GW-Nummern
                                                  'der Datenbank gefüllt
 
If CStr(rs.Fields("finanzbdk").Value = -1) Then   'hier wird z.B. die Anzahl
   anzbdk = anzbdk + 1                            'PKWs ermittelt, die bei der
   End If                                         'BDK finanziert wurden
 
rs.MoveNext
    Loop
rs.Close