Cita:
Iniciado por Kruzado 
con el mismo codigo tuyo, pruebalo asi
Private Sub agr_reg_Click()
Respuesta = MsgBox("Deseas dar de alta un nuevo registro?", vbYesNo, "REGISTRO DE ALTA")
If Respuesta = vbNo Then
Exit Sub
Else
Guardar.Enabled = True
Text1.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End If
Private Sub Guardar_Click()
With rs
.AddNew
.Fields("clave") = Val(Text1.Text)
.Fields("fecha") = Date
.Fields("formato") = Trim(Text3.Text)
.Fields("descripcion") = Trim(Text4.Text)
.Fields("lugar") = Trim(Text5.Text)
End With
rs.Update
End Sub
ahora supongo que limpias los textos para despues llenarlos, sino no tiene mucho sentido dejarlos limpios y despues grabar inmediatamente (que era lo que estabas haciendo
Hola,mmmm no me guarda, la verdad no se si mi codigo esta bien o que esta pasando
