Giriş Butonunuzdaki kodlarınızı aşağıdaki kodlarla değiştirerek dener misiniz?

Private Sub Komut170_Click()

Dim sifre

If sifre = 123 Then

DoCmd.OpenForm "Form3"

Else

MsgBox "Şifreniz Yanlış"

End If

End Sub