Public Function createConnection() As SqlConnection
        Try
            Return New SqlConnection("workstation id=usw...")
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Fehler beim Erstellen der" & _
              "Datenbankverbindung!", MessageBoxButtons.OK, _
              MessageBoxIcon.Error)
            Application.Exit()
        End Try
End Function