Añadir un DataTable utilizando el Método Add

[RsOfT]

Estoy tratando de añadir un datatable a un dataset utilizando el método Add de su propiedad Tables.

Tengo la siguiente línea de Código:

Código:

dsDataSet.Tables.Add(cDB.EjecutaSQL("SELECT CodMat, DesLar FROM InPresen"))

y el método de la Clase cDB es:

Código:

Public Function EjecutaSQL(ByVal strSQL As String) as DataTable
    daDataAdapter = New Data.SqlClient.SqlDataAdapter(strSQL, cnn)
    EjecutaSQL = New Data.DataSet
    daDataAdapter.Fill(EjecutaSQL)
    Return EjecutaSQL.Tables(0)
End Function

Pero me da el siguiente error:
DataTable already belongs to another DataSet

¿Qué estoy haciendo mal?

[moNTeZIon]

Hola RsOft,
Entiendo que "EjecutaSQL" es el nombre de la funcion, que es tipo DataTable.
En el Return devuelves "EjecutaSQL.Tables(0)". Pero no debería tener una colección Tables, si ya es un DataTable. Deberías devolver solamente una variable de tipo DataTable. Y también pienso que crearte un Dim tabla As DataTable y trabajar con este. Y finalmente Hacer un Return tabla.
A parte también asignas EjecutaSQL a un new DataSet..
Yo cambiaría por algo así:

Código:

Public Function EjecutaSQL(ByVal strSQL As String) as DataTable
    daDataAdapter = New Data.SqlClient.SqlDataAdapter(strSQL, cnn)
    Dim dS as New Data.DataSet
    daDataAdapter.Fill(dS, "NombreTabla")
    Return dS.Tables(0).Copy
End Function

A ver qué tal.
Un saludo RsOft.