Private Sub Sehen_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Sehen.Click 
Dim con As New SqlClient.SqlConnection
        Dim cmd As New SqlClient.SqlCommand
        Dim reader As SqlClient.SqlDataReader
 
        Try
            con.ConnectionString = _
               "Data Source=ROP-PC\SQLEXPRESS;" _
                  & "AttachDbFilename=E:\Dokumente und Einstellungen\rop\Eigene" & _
                  "Dateien\Visual Studio " _
                  & "2008\Projects\Test\Test\firma.mdf;" _
                  & "Integrated Security=True;"
            cmd.Connection = con
            cmd.CommandText = "select * from personen"
            con.Open()
 
            reader = cmd.ExecuteReader()
            lstTab.Items.Clear()
            Do While reader.Read()
                lstTab.Items.Add(reader("name") & " # " _
                   & reader("vorname") & " # " _
                   & reader("personalnummer") & " # " _
                   & reader("gehalt") & " # " _
                   & reader("geburtstag"))
            Loop
            reader.Close()
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try