Necesito inresar un nuevo registro

[tobonfer]

Hola

Despues de ingresar un primer registro, necesito que el formulario inicie nuevamente con los campos en blanco para ingresar otro registro.

En este procedimiento la primera vez lo hace bien, pero la segunda me dice que la operación no esta permitida en este contexto.

Sub abrirGraduados()

If (rec.State = 1) Then
rec.Close ' Se para en esta instruccion y me "la operación no esta
' permitida en este contexto"
End If
rec.LockType = adLockOptimistic
On Error Resume Next
rec.Open "GRADUADOS", con
End Sub

Cual seria la solución

Gracias

[tonymartin]

Utiliza la función insert en lenguaje sql, es mucho más rápido y más cómodo.

[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