Friend Function SqlDatenHolen(Of T As {New, IDisposable, IDbConnection}, T2 _
      As {New, IDbDataAdapter})(ByVal sQuery As String) As DataSet
        Dim dt As New DataSet
 
        Using conn As New T()
            conn.ConnectionString = ConStr
 
            Try
                conn.Open()
                Dim oCommand As New T2
 
                oCommand.SelectCommand = sQuery
                oCommand.Fill(dt)
            Catch ex As Exception
                MsgBox("Datenbankzugriff auf SQL-Server fehlgeschlagen.", True)
            Finally
                conn.Close()
            End Try
        End Using
 
        Return dt
    End Function