RE: formulario maestro detalle

No da un error en sí, me he equivocado. Cuando estoy editando un registro ya creado, y que el grid contenga registros!!!
Pero cuando voy a introducir uno nuevo en el grid, conforme voy pasando por los campos, se va borrando lo que he escrito.
Y si doy a escape, da un error en el rebind.
te pongo el codigo que genera el grid:

Direcciones
sql = "Select Tipo,Finca,Direccion,Poblacion,CPostal,Provincia,P ais,Telefono," _
& " Fax,Movil,Observacion,Contacto,CodComun,Id" _
& " From direnvio" _
& " Where codcomun=" & MiEntidad _
& " Order by id"

With GridEXDirecciones

.ColumnAutoResize = False
.CursorLocation = jgexUseClient
.DatabaseName = Bd
.LockType = jgexLockOptimistic
.RecordsetType = jgexRSADOStatic
.RecordSource = sql
.ClearFields
.ReBind

tamaños de columna
.Columns("Tipo".Width = 1000 col 1
.Columns("Finca".Width = 2000 col 2
.Columns("Direccion".Width = 2000 col 3
.Columns("Poblacion".Width = 1000 col 4
.Columns("CPostal".Width = 800 col 5
.Columns("Provincia".Width = 2000 col 6
.Columns("Pais".Width = 2000 col 7
.Columns("Telefono".Width = 2000 col 8
.Columns("Fax".Width = 2000 col 9
.Columns("Movil".Width = 2000 col 10
.Columns("Observacion".Width = 3000 col 11
.Columns("Contacto".Width = 3000 col 12
.Columns("CodComun".Width = 1000 col 13
.Columns("Id".Width = 0 col 14

tipo de control en columna
.Columns("Tipo".EditType = jgexEditCombo
Set .Columns("Tipo".DropDownControl = Me.GridEXCmbTiposDireccion.object
GridEXCmbTiposDireccion.Width = .Columns("Tipo".Width
GridEXCmbTiposDireccion.Columns("Tipo".Width = .Columns("Tipo".Width

.Columns("Provincia".EditType = jgexEditCombo
Set .Columns("Provincia".DropDownControl = Me.GridEXCmbProvincias.object
GridEXCmbProvincias.Width = .Columns("Provincia".Width
GridEXCmbProvincias.Columns("Provincia".Width = .Columns("Provincia".Width

.Columns("Pais".EditType = jgexEditCombo
Set .Columns("Pais".DropDownControl = Me.GridEXCmbPaises.object
GridEXCmbPaises.Width = .Columns("Pais".Width
GridEXCmbPaises.Columns("Pais".Width = .Columns("Pais".Width

valores por defecto
.Columns("CodComun".DefaultValue = MiEntidad

End With

a ver si te sirve de ayuda

gracias
</TR>