arkadaşlar şifreli giriş ekranında kullanıcı adı ve şifreyi girdikten sonra ana form ekrana gelmiyor (aynı zamanda program çalışıyor gözüküyor) nerde yanlış yapmış olabilirim ?

şifre ekranın giriş butonu kodu aşağıdaki gibi;


Option Compare database
Option Explicit
Dim YanlisSifre
--------------------------
Private Sub Form_Close()
DoCmd.penFOrm”Form_Ana”
End Sub
---------------------------
Private Sub Form_Open(Cancel As Integer)
Dim KulSay As String
KulSay=DCount(“*”,”Tbl_Kullanici”)
 
If KulSay=0 Then
DoCmd.OpenForm "Form_SfrShrbaz"
End If
End Sub
---------------------------------
Private Sub Komut”0_Click()
On Error GoTo Hata
Dim str As String
  str=oturum.value
  on Error GoTo hatas
  If Me.Dogrusifre=Me.sifre Then
  YetkiNe=Me.dogruyetki
  KullaniciKim=Me.Kullanici
  AktifKullaniciYetkisi
  AktifKullanici
 
  DoCmd.SetWarnings False
   CurrentDb.Execute “INSERT INTO Tbl_Kullanici_Kayit ( [user] ) SELECT aktifkullanici()”
  DoCmd.SetWarnings True
Hatas:
  DoCmd.Close
  DoCmd.OpenForm “Form_Ana”,,,,, “Value=”+str
 
Else
  YanlisSifre=YanlisSifre+1
  MsgBox YanlisSifre & “. Denemenizde Şifrenizi Yanlış Girdiniz. Lütfen Tekrar Deneyiniz.” & Chr(13) & “4. Hatanızda Program Kapanacaktır.”, vbOKOoly+vbritical, “Hatalı Şifre”
  If YanlisSifre=4. Then DoCmd.Quit(acQuitSaveNone)
  End If
  Exit Sub
Hata:
 
End Sub
------------------------------
Private Sub Kullanici_AfterUpdate()
Me.Sifre.SetFocus
End Sub