With ListView1
    Dim X As Integer
      X = .Width / 3
 
      .ColumnHeaders.Add , , "Name", X
      .ColumnHeaders.Add , , "Beruf", X
      .ColumnHeaders.Add , , "Nationalität", X
 
      .View = lvwReport
 
    dbFile = App.Path + "\db.MDB"
    Set db = Workspaces(0).OpenDatabase(dbFile, False, False, ";pwd=" & _
      dbPasswort)
    Set Tabelle = db.OpenRecordset("Autoren")
 
    Set rs = db.OpenRecordset(SQL)
 
    If rs.RecordCount > 0 Then
 
    For a = 1 To rs.RecordCount 
        .ListItems.Add , rs("Name")                        'Hier ist das Problem              
        .ListItems(a).SubItems(1) = rs("Beruf")                                                                      
        .ListItems(a).SubItems(2) = rs("Nationalität")
       rs.MoveNext
      Next a   
 
    End If    
End With