convertir recordset a datatable

[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!!