Problema con el DataGrid

[pinia]

Alguien me puede ayudar diciendome porque el siguiente codigo, que no tira ningun tipo de error, no me muestra nada en el datgrid:

Set RS = New ADODB.Recordset
Set base = New ADODB.Connection


With base
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open "C:\Manejo de Cheques\base\base.mdb"
End With


RS.Open "SELECT cod, nro FROM cheque", base, _
adOpenStatic, adLockOptimistic

set datagrid1.datasource = rs

Gracias