...
sql = "SELECT personen.id, song.id, verlag.id  FROM personen, song, verlag"
rs.Open sql, Conn, adOpenKeyset, adLockOptimistic
Set listvertrag.DataSource = rs
 
  With listvertrag
    .BorderStyle = dbgNoBorder
    .Columns("personen.id").Width = 500
    .Columns("song.id").Width = 500
    .Columns("verlag.id").Width = 500
  End With
rs.Close
...