Private AkteDataSet, VBDataSet, GVDataSet, BVDataSet As DataSet

AkteDataSet.DataSetName = "Akte"
VBDataSet.DataSetName = "Versorgungsberechtigter"
GVDataSet.DataSetName = "GesetzlicherVertreter"
BVDataSet.DataSetName = "BevollmächtigterVertreter"
 
VBDataSet.Tables.Add(Me.DBData.GetDataTable("SELECT * FROM [Bedarfsfall]." & _
  StoredProcedureName & " ('" & Me.Amt & "', '" & Me.Team & "', '" & _
  Me.GrundlistenNummer & "')", PersonenArt.ToString(), True)
VBDataSet.Tables.Add(Me.DBData.GetDataTable("SELECT * FROM" & _
"[Bedarfsfall].[udfGetStammdaten] ('" & StammdatenID & "')", "Stammdaten", _
True))
ResultDataSet.Tables.Add(Me.DBData.GetDataTable("SELECT * FROM" & _
"[Bedarfsfall].[udfGetKontodaten] ('" & StammdatenID & "')", "Kontodaten", _
True))

Public Function GetDataTable(ByVal Command As DbCommand, Optional ByVal _
  TargetTableName As String = "", Optional ByVal FillSchema As Boolean = False) _
  As DataTable
        Dim DataAdapter As DbDataAdapter
        Dim DataTable As New System.Data.DataTable
 
        Try
            Command.Connection = Me.mDBConnection
            DataAdapter = Me.mDBFactory.CreateDataAdapter()
            DataAdapter.SelectCommand = Command
 
            If (FillSchema = True) Then
                DataAdapter.FillSchema(DataTable, SchemaType.Mapped)
                DataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
            End If
 
            DataAdapter.Fill(DataTable)
 
            If (TargetTableName.Length > 0) Then
                DataTable.TableName = TargetTableName
            End If
 
            Return DataTable
        Catch ex As Exception
            If (ex.InnerException IsNot Nothing) Then
                Throw New Exception(ex.Message, ex.InnerException)
            Else
                Throw New Exception(ex.Message)
            End If
        End Try
    End Function