Necesito inresar un nuevo registro

[tonymartin]

Acá te muestro un ejemplo para guardar datos a mi estilo, ya que nunca me gustaron las propiedades del mismo visual para guardar opto por instrucciones sql

En el modulo
Option Explicit
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim cmd As ADODB.Command
Public Const conex = "provider=SQLOLEDB;server=BETA;database=Northwind; uid=sa;pwd="

Public Function ListarProductosDataG() As ADODB.Recordset
On Error GoTo ErrHandler
Set cmd = New ADODB.Command
Set Rs = New ADODB.Recordset
With cmd
.ActiveConnection = conex
.CommandType = adCmdText
.CommandText = "select idproducto as Codigo, nomproducto as Producto, preciounit as [Precio Unitario], unidadstock as [Unidades en Stock], CantidadporUnidad, nomcategoria as Categoria from bdproveedorinte..cateproducto c inner join bdproveedorinte..producto p on c.idcategoria = p.idcategoria"
End With
Rs.CursorLocation = adUseClient
Rs.Open cmd, , adOpenStatic, adLockReadOnly
Set ListarProductosDataG = Rs
Set Rs = Nothing
Set cmd = Nothing

ErrHandler:
If Err.Number <> 0 Then
MsgBox (Err.Number & " : " & Err.Description)
End If
End Function

Public Function ManteUsuarios(ByVal idUsuario As String, ByVal apepatusuario As String, ByVal apeMatusuario As String, ByVal nomUsuario As String, ByVal passusuario As String, ByVal Email As String, ByVal nromovil As String, ByVal fotousuario As String, ByVal telefempresa As String, ByVal estadousuario As String, ByVal oPcion As Integer)
On Error GoTo ErrHandler
Set cmd = New ADODB.Command
cmd.ActiveConnection = conex
cmd.CommandType = adCmdText
cmd.CommandText = "seguridadinte..sp_mantenimiento_usuarios '" & idUsuario & "', '" & apepatusuario & "', '" & apeMatusuario & "', '" & nomUsuario & "', '" & passusuario & "', '" & Email & "', '" & nromovil & "', '" & fotousuario & "', '" & telefempresa & "', '" & estadousuario & "', " & oPcion & ""
cmd.Execute
Set cmd = Nothing
Exit Function
ErrHandler:
If Err.Number <> 0 Then
MsgBox (Err.Number & " : " & Err.Description)
End If
End Function

La programacion en el formulario
ManteUsuarios txtUsuario.Text, txtApePat.Text, txtApeMat.Text, txtNombre.Text, txtPass.Text, txtEmail.Text, txtNroMovil.Text, txtFoto.Caption, txtTelef.Text, xEstActividad, xOpcionUsu