ok suponiendo que tu formulario principal es forminicial.frm
lo que haces es:
2 opciones:
1° opcion:
1-crear un formulario de nombre frmlogin.frm
2-colokas dos kampos de texto (txtusr, y txtpwl) al campo txtpwl le pones en la propiedad maskpasswd (o algo asi) *, osea para que muestre * cuando vos tecleas algo, luego colokas un boton (btnaceptar)
3- en el evento click del boton pones:
' el pwl esta de esa manera como para despistar
usr = "admin" : pwl = "admin":pwl1="007"
IF txtUsr !="" And txtPwl !="" THEN
IF txtUsr = usr AND txtPwl = (pwl & pwl1) THEN
formincial.Show
ELSE
msgbox "Error en los datos ingresados"
end 'salimos
END IF
END IF
' para que funcione esto lo que hacesmos es modificar las propiedades del proyecto, y le decimos que el formulario que se inicia primero es frmlogin.frm
2° opcion
1- agregamos un modulo y ponemos
Sub Main()
Usr = inputbox("Nombre de usuario")
Pwl = inputbox("Password")
Usr0 = "admin"
Pwl0 = "admin": Pwl1 = "007"
If Usr = Usr0 AND Pwl = (Pwl0 & Pwl1) Then
frminicial.show
Else
End ' Salimos
End if
End Sub
Espero que te sirva saluds!!