求助，我已经编写了sub main（）仍然弹出必须有启动窗体或sub main（）

如题，sub main（）是在模块中写的，代码如下，求大神看看，这个是照着教程上面写的，不知道有什么问题。
Sub maim()
Dim frmlog As New frmlogin
strdb = "\人员管理.mdb"
conn = "provider=microsoft.jet.4.0;data source=" & App.Path + strdb + ";persist secrurity info=fasle"
flogin.Show vbModal

If Not flogin.ok Then

End
End If
Unload flogin
Set fmainform = New frmmain
Load fmainform
fmainform.Show
End Sub