
y este es el codigo de ese form:
Código:
alguien sabe que pasa? ya probe de todo, y sigue sin andar...Dim Cambio As Boolean Dim nuevoU As New ADODB.Recordset Private Sub Command1_Click() If Cambio = True Then With nuevoU .ActiveConnection = Data .Open ("Select * from users where user like'" & Usuar & "'") End With If (nuevoU.EOF = True) And (nuevoU.BOF = True) Then If Contr = Contr2 Then Data.Execute ("Insert Into Users ( User, Clave,Recordar) Values ( '" & Usuar & "', '" & Contr & "', 'False')") nuevoU.Close MsgBox "Usuario Creado" Unload Me Main.Show Else MsgBox "Las Contraseñas no coinciden" nuevoU.Close End If Else MsgBox "Ya existe el usuario" nuevoU.Close End If Else MsgBox "Debes introduir un nuevo usuario y contraseña" End If End Sub Private Sub Command2_Click() If nuevoU.State = 1 Then nuevoU.Close End If Unload Me Main.Show End Sub Private Sub Form_Load() Cambio = False End Sub Private Sub Usuar_Change() Cambio = True End Sub
Muchas Gracias!
(Pato)²