'--(Server-/Datenbankverbindung) herstellen
    Public Function GetConnection() As SqlClient.SqlConnection
        Dim conString As String
        conString = "server=hure-7b83c703b\sqlexpress;database =" & _
          "Data_01;Integrated Security = true"
        Dim con As SqlClient.SqlConnection = Nothing
        Try
            con = New SqlClient.SqlConnection(conString)
            con.Open()
        Catch ex As Exception
            Throw (ex)
        End Try
        Return con
 
    End Function

der Hund ist Dir im Sturme treu - der Mensch nicht mal im Winde
\"Kampfhunde\" Liebhaber