convertir recordset a datatable

[empilado]

Hola a todos... a ver si esto es posible .... tengo un componente que fue creado con VB 6 y ahora lo quiero usar en un proyecto web usando vb 2005 ... todo bien hasta que el componente empieza a hacer su trabajo al tratar de llenar un gridview. Lo que pasa es que este componente retorna un recordset, entonces creo que el gridview no acepta esto y por eso la aplicacion se queda colgada....me dijeron que vea la posibilidad de convertir el recordset a un datable.....busque en nuestro querido google pero como que no tuve mucho exito...alguien por ahi tendra alguna solucion o idea de como resolver esto ???

Gracias de antemano y saludos.

[omar_cb11]

No se como hace lo demas tu aplicacion, pero yo para llenar un DataGridView uso lo siguiente:

Dim dt As DataTable
Dim da As OleDb.OleDbDataAdapter
Dim sConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=BasedeDatos"
Dim Consulta As String = "SELECT * FROM Tabla"
da = New OleDb.OleDbDataAdapter(Consulta, sConexion)
dt = New DataTable
da.Fill(dt)
DataGridView1.DataSource = dt

[empilado]

gracias por tu post pero ya resolvi el problema...no pude convertirlo directamente a un datatable pero si lo converti a un dataset y de ahi jalo la tabla que necesito... lo dejo por si alguien lo necesita:

Public Function RecordSet_2_DataSet(ByVal rs As ADODB.Recordset) As DataTable

Dim myDA As New OleDbDataAdapter()
Dim myDS As New DataSet("MyTable")
myDA.Fill(myDS, rs, "MyTable")
Return myDS.Tables(0)

End Function

Saludos!!