bueno nadie lo pide ahora pero lo pudieran nesesitar a y pss mi primera portacion




'crea una base de datos en (mis documentos)con 2 tablas una usu y la otra con agregas un data evirrimont le pones de nombre ab
'los dos testbox k se pones kon la base de datos los pones en no visible y asi komparas sus valores kon los 2 textbox k tu pones y en el k usuario ingresas sus datos
Private Sub Command1_Click()
Dim a As Integer

For a = 1 To 6
If ax1.Text = txtUsuario.Text And ax1.Text <> "" Then 'condiciona primero el usuario despues el pass
   If ax2.Text = txtContraseña.Text And ax2.Text <> "" Then
   Form3.Show
   Unload Me
   

   
   End If
Else

ab.rsa1.MoveNext
ab.rsa2.MoveNext 'mueve si es falso en registro una vez solo son 6 registros o seguin el for pon los k kieras los registros en las tablas no los dejes vasios ponle lo k kieras
' lo de ab.rsa1.movenext y el otro son para k mueva los dos registro y no compare el mismo con el bucle
End If


Next

ab.rsa1.MoveFirst 'los mueeve al inicio para k
ab.rsa2.MoveFirst
Label1.Caption = "Contraseña Iconrrecta"
End Sub

'en el form 1 los 2 textbox con numeros son los de la base de datos con los k los compara la base de datos solo tiene  ese registro


Private Sub Form_Load()
ab.rsa1.MoveFirst
ab.rsa2.MoveFirst
If txtContraseña.Text = "" Then
reg.Visible = True
Else
reg.Visible = False
End If


End Sub


Private Sub reg_Click()
Form2.Show' esto es mmm para el primer login que se introduzca en los 6 esta en blanco pero si contien un valor en el programa ya no aparece
form1.Hide
End Sub



la verdad k no esta muy bn explicado asi k pregunten y si saven diganme komo subir este proyecto para k lo bajen y entiendan mejor

Quita las etiquetas de las marquesinas