llenar o poblar un datagrid

jorge
05 de Octubre del 2003
si alguien puede ayudarme, trato de llenar un datagrid con unos datos de una base de access 2000 y lo quiero realizar con codigo he hecho lo siguiente pero no muestra los datos:

Private Sub Form_Load()
Dim cn As New Connection
Dim rs As New Recordset
Dim strdatos As String
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "D:\taller1.mdb", "admin", ""
strdatos = "select OT from pieza"
rs.Open strdatos, cn, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
rs.MoveFirst
DataGrid1.ClearFields
DataGrid1.DataMember = rs.DataMember
Set DataGrid1.DataSource = rs.DataSource
Else
MsgBox "no hay datos"
End If
End Sub

el recordset me dice que hay 12 registro y sin embargo no me muestra nada el datagrid.
gacias a quien pueda ayudar

Baltasar
05 de Octubre del 2003
Has probado, al final del todo, poner DATAGRID1.REFRESH ?