Set New_mdb = CreateObject("access.application")
        New_mdb.OpenCurrentDatabase App.Path & "\1.mdb", False, mypassword   
        New_mdb.UserControl = True
        New_mdb.DoCmd.OpenForm 登陆窗体
用VB6打开access，但是会闪一下才会显示 登陆窗体 。请问如何直接显示 登陆窗体

你的这个代码现在基本上没人用了，现在使用ADO对象或ADO控件访问数据库。在界面添加引用-【工程】-【引用】，在引用对话框勾选：
，这样就添加了ADO对象。

Dim cn As New ADODB.Connection, RS As New ADODB.Recordset   '首先定义二个ADO对象，cn是数据库连接对象，RS是记录集对象
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\1.mdb;Persist Security Info=False"    '连接数据库语句，这是2003版本以下的Access数据库连接，2007以上的语句不同
RS.Open "Select * From 数据库名", cn, 2, 3    '连接记录集，机连接数据表
'直接在登录界面输入以上代码，这是在VB6的应用，打开VB6的窗体即可

“用VB6打开access，但是会闪一下才会显示 登陆窗体”不知道你是怎么操作的。

感谢回复

我不是用vb6操作access数据库

而是用vb6打开access数据库

然后在access数据库上操作