嗯,在这段加了form2后就是图示了

Private Sub Form_Load()
Me.Left = Screen.Width / 2 - Me.Width / 2
Me.Top = Screen.Height / 2 - Me.Height / 2
Me.Caption = "登陆"
intTryTimes = 0
Set dbLogin = OpenDatabase(App.Path + "\Data.mdb", False, False, "MS Access;pwd=111")
' Set rstLogin = dbLogin.OpenRecordset("select Username from User")
' If rstLogin.RecordCount <> 0 Then
' Me.txtUser = rstLogin.Fields("Username")
' End If
form2.Show
Me.txtUser.SetFocus
End Sub

在form1代码form2.show应该没问题。

我这段代码登陆窗功能和数据库连都很正常,卡在调下一个窗口上,麻烦版主详细指点一下,谢谢!!!

工程可以发上来吗？

数据库内两组登陆名和密码   


[ 本帖最后由 jiaz24 于 2010-12-12 19:33 编辑 ]

工程代码没加form2

Me.txtUser.SetFocus去掉

Private Sub Form_Load() 
Me.Left = Screen.Width / 2 - Me.Width / 2 
Me.Top = Screen.Height / 2 - Me.Height / 2 
Me.Caption = "登陆" 
intTryTimes = 0 
Set dbLogin = OpenDatabase(App.Path + "\Data.mdb", False, False, "MS Access;pwd=111") 
' Set rstLogin = dbLogin.OpenRecordset("select Username from User") 
' If rstLogin.RecordCount <> 0 Then 
' Me.txtUser = rstLogin.Fields("Username") 
' End If 
form2.Show 
End Sub

去掉后两个窗口同时出现了

期待Artless版主支招~~~!!!