bue aca pongo el codigo..me sigue din funcionar:
'============
'ACÁ CARGAMO en el datagrid
Set dbconn = New ADODB.Connection
dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Biblioteca.mdb;Persist Security Info=False"
dbconn.Open
SQL = "select * FROM SOCIO"
Set rs = dbconn.Execute(SQL, , adCmdText)
DataGrid1.DataSource = rs
rs.Close
dbconn.Close
'===========
salu2