convertir recordset a datatable

[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