Visual Basic - PROBLEMA CON DATAGRID

Hola!
Tengo el siguiente código para sacar datos de una BD y meterla en un datagrid.Mi problema es que no me aparece ningun dato en el datagrid.
Dim rs As New adodb.Recordset
Dim sql As String
sql = "select * from Tabla"
rs.Open sql, "Provider=OraOLEDB.Oracle; Data Source=Informe; User Id=billing; Password=billing", 3, 3
Set DataGrid1.DataSource = rs
DataGrid1.Refresh

Muchas gracias.

Te recomiendo que utilices el control Microsoft Hierarchical Flex Grid.
por ejemplo:
dim Rst as new AdoDb.Recordset
dim sql as string
sql = "select * from tabla"
rst.open sql, "Provider=OraOLEDB.Oracle; Data Source=Informe; User Id=billing; Password=billing", 3, 3
set MSHFlexGrid1.recordset = rst
MSHFlexGrid1.refresh

Cambia DataGrid1.Refresh por DataGrid1.ReBind