Private Sub Command1_Click()
Dim Db As Database
Dim dbFile As String
Dim X As Integer
 
 
With ListView1
      X = .Width / 3
 
      .ColumnHeaders.Add , , "Name", X
      .ColumnHeaders.Add , , "Beruf", X
.ColumnHeaders.Add , , "Beruf", X
 
      .View = lvwReport
 
dbFile = "G:\db1.MDB"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
'Recordset auf Basis einer SQL-Abfrage erstellen und öffnen
Dim SQL As String
Dim rs As Recordset
 
   If Option1.Value = True Then
        SQL = "SELECT ID, Vorname FROM Adressen WHERE Vorname Like '" & _
          Text1.Text & "*'"
        Set rs = Db.OpenRecordset(SQL)
   End If
 
   If Option2.Value = True Then
        SQL = "SELECT ID, Vorname FROM Adressen WHERE PLZ Like '" & Text1.Text _
          & "*'"
        Set rs = Db.OpenRecordset(SQL)
   End If
 
 
 
 
 
If rs.RecordCount > 0 Then
 
    For a = 1 To rs.RecordCount
        .ListItems.Add = rs("id")                        'Hier ist das Problem
        .ListItems(a).SubItems(1) = rs("vorname")
 
       rs.MoveNext
      Next a
 
    End If
 
End With
 
End Sub