Ok lo que voy hacer no lo acostumbro pero tratare de depurar tu codigo aver si asi te echo una mano
Private Sub cmdAgregar1_Click()
Dim rs As ADODB.Recordset
Call IniciarConexion
Set Rs = New ADODB.recordset
If txtPass <> txtCpass Then
MsgBox "La Clave y la Confirmación de esta deben ser iguales"," & _
" vbOKOnly,"Error""
Else
Call IniciarConexion
cnn.Open
cnn. execute "INSERT INTO Tabla1(DARPA, Username, Contraseña) " & _
"VALUES(' " & txtCautorization.text & " '," & _
" ' & txtUser name.text & " ',' " & txtPass.text & " ')"
End If
End Sub
Ok No lo e probado pero creo que seria eso lo que quieres ojos varios consejos
- Uno crea un modulo donde declares todas las variables asi evitaras tener tan sucio el codigo
- dos create un modulo con este metodo sub main () en el declara una sola vez la conexion y la dejas abierta todo el tiempo solo abre y cierra los recordset
Aparte no se si en call IniciarConexion tu primero revisas el estado aver si esta abierta o cerrada la conexion si no lo haces y la conexion esta abierta te arroajara un error en ese caso deberias revisarla con el siguiente bloque
Sub comprobar_cnn()
If cnn.State = adStateOpen Then
cnn.Close
End If
End Sub
Bueno espero te sirva mi msn es
[email protected] si quieres me agregas y te echo una mano saludos.....