刚声明了个变量，我错哪儿了？

在VB6中新建了一个模块 ，做了 以下声明：

Option Explicit

Public DBCON As ADODB.Connection

Sub main()
    DBCON.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DateBase\gyzb.mdb;Persist Security Info=False"
    DBCON.Open
    Frm_login.Show
End Sub

为什么运行后出现下列错误提示？我到底错哪儿了啊？