Editar

Hola, si me pudieras ayudar:
Tengo una base de datos en access y le estoy dando mantenimiento desde visual basic.
Tengo un formulario de ingreso de proveedores
y quiero grabar datops y también modificarlos estoy haciendo lo siguiente pero no graba:
If cmdgrabar.Caption = "Grabar" Then
With rsproveedor
.AddNew
!nombre_empresa = txtnomemp.Text
!ruc = txtruc.Text
!giro = txtgiro.Text
!direccion = txtdir.Text
!distrito = cbodistrito.Text
!telefono = txttel.Text
!fax = txtfax.Text
!e_mail = txtemacon.Text
!web = txtwebemp.Text
!nom_contacto = txtnomcon.Text
!fono_contacto = txttelcon.Text
!mail_contacto = txtemacon.Text
!celular = txtcel.Text
.Update
.Requery
End With
Else
cmdgrabar.Caption = "modificar datos"
MsgBox "Datos Actualizados", 32, "Aviso del Sistema"
With rsproveedor
!nombre_empresa = txtnomemp.Text
'!ruc = txtruc.Text
!giro = txtgiro.Text
!direccion = txtdir.Text
!distrito = cbodistrito.Text
!telefono = txttel.Text
!fax = txtfax.Text
!e_mail = txtemacon.Text
!web = txtwebemp.Text
!nom_contacto = txtnomcon.Text
!fono_contacto = txttelcon.Text
!mail_contacto = txtemacon.Text
!celular = txtcel.Text
.Update
.Requery
End With
End If
cmdgrabar.Caption = "Grabar"
rsproveedor.Close
End Sub
Soy nuevo en esto de vb por favor si me pedes ayudar