Visual Basic - no me actualiza

tengo este codigo :

Private Sub guardar_Click()
Dim campo As String
Dim h As Integer
Dim p As Integer
Set base = OpenDatabase("marc.mdb", False, False, ";pwd=marc2004")
Set registro = base.OpenRecordset(categorias)
With registro
.MoveFirst
For h = 1 To flexdatos.Rows - 1
If !codigo = flexdatos.TextMatrix(h, 0) Then
.Edit
For p = 1 To flexdatos.Cols - 1
campo = flexdatos.TextMatrix(0, p)
.Fields(campo) = flexdatos.TextMatrix(h, p)
Next
.Update
Else
.MoveNext
End If
Next
End With
registro.Close
base.Close
End Sub

Pero no me realiaza la actualizacion de datos no los almacena en access

mira yo tengo esta solucion pero es con Ado espero y te pueda servir.

NumVta = "" & Trim(AdoBusqueda!idbancomer)

Set AdoCodigo = New ADODB.Recordset
AdoCodigo.Open "SELECT * FROM " & strTabla & " Where IdBancomer=" & NumVta, Conexion, adOpenDynamic, adLockOptimistic
codigoBarras = Barra128_B(NumVta)
AdoCodigo!codigoBarras = codigoBarras
AdoCodigo.Update
AdoCodigo.Close
Set AdoCodigo = Nothing
AdoBusqueda.MoveNext

Pana donde tienes

Set registro = base.OpenRecordset(categorias)

coloca:

Set registro = base.OpenRecordset(categorias,vbopendynaset)

El vbopendynaset te abre la tabla en forma dinamica, es decir puedes modificarla y hacer lo ke kieras...de otra forma la abre statica o solo lectura

m0rph