dim daMusik as new SqlDataAdapter("SELECT * FROM Musik", connectionString)
dim daDatentraeger as new SqlDataAdapter("SELECT * FROM Datenträger", _
  connectionString)
dim daKategorie as new SqlDataAdapter("SELECT * FROM Kategorie", _
connectionString)
dim daZustand as new SqlDataAdapter("SELECT * FROM Zustand", connectionString)
 
Try
  'Datatable leeren falls mehrmals auf den Button geklickt wird
  dsMusik.Clear()
  'die Datatables mit Inhalt füllen
  daMusik.Fill(dsMusik, "Musik")
  daDatenträger.Fill(dsMusik, "Datenträger")
  daKategorie.Fill(dsMusik, "Kategorie")
  daZustand.Fill(dsMusik, "Zustand")
Catch ex As Exception
  MessageBox.Show("Fehler: " & ex.Message)
End Try