En cierto modo si que va porque le doy a actualizar y se pone el registro pero se me borran los demas dejando las celdas vacias.Le vuelvo a dar y me aparecen todos los datos pero me empieza a añadir celdas vacias cada vez que le doy. Lo he puesto asi:
Código vb:
Ver originalPrivate Sub Command3_Click()
'Borrar el registro
MSFlexGrid1.Clear
While Not rsTbl_Direccion.EOF
MSFlexGrid1.AddItem rsTbl_Direccion("id") & vbTab & rsTbl_Direccion("nombre") & vbTab & rsTbl_Direccion("apellidos") & vbTab & rsTbl_Direccion("direccion") & vbTab & rsTbl_Direccion("ciudad") & vbTab & rsTbl_Direccion("provincia") & vbTab & rsTbl_Direccion("telefono") & vbTab & rsTbl_Direccion("cp")
rsTbl_Direccion.MoveNext
Wend
'Refrescamos
MSFlexGrid1.Refresh
Set cnPrueba = New Connection
'Establecer sus propiedades
With cnPrueba
.Provider = "Microsoft.Jet.oledb.4.0"
.ConnectionString = "prueba.mdb"
End With
cnPrueba.Open
'Crear un conjunto de registros desde la tabla Tbl_Direccion
Set rsTbl_Direccion = New Recordset
'Establecer sus propiedades
With rsTbl_Direccion
.CursorLocation = adUseClient
.Open "SELECT * FROM tbl_direccion", cnPrueba, adOpenDynamic, adLockOptimistic
End With
End Sub
Saludos