Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        readData()
    End Sub
 
    Private Sub readData()
        Dim conn As New SqlConnection( _
                            "Password=sa;Persist Security Info=True;" & _
                            "User ID=" & My.Settings.connStrDBId & ";Password=" _
                            & My.Settings.connStrDBPw & ";Initial Catalog=udb;" _
                            & _
                            "Data Source=" & My.Settings.connStrDBHost & _
                            "\sqlexpress;")
 
        Dim SQL As String = "SELECT * FROM patienten"
        Dim da As New SqlDataAdapter(SQL, conn)
        Dim cmdB As New SqlCommandBuilder(da)
        Dim ds As New DataSet()
 
        Try
            conn.Open()
        Catch ex As Exception
            MessageBox.Show("Fehler")
            Form2.ShowDialog()
            readData()
        End Try
 
        da.Fill(ds, "Tabellenname")
        conn.Close()
 
        Dim dt As DataTable = ds.Tables("Tabellenname")
        Dim dr As DataRow
 
        For Each dr In dt.Rows
            Me.ListView1.Items.Add(dr("patient"))
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Form2.ShowDialog()
    End Sub
End Class