为什么不显示结果出来？

'结果显示不出来，Form_load中那msgbox显示Congratulations,Established！
'表示已经连接上了，可为什么不跳到myConnection_ConnectComplete呢？
'少哪句话呀，高手帮忙指点一下。我是菜鸟。
Dim WithEvents myConnection As ADODB.Connection
Dim myRecordset As New ADODB.Recordset

Private Sub Form_Load()
    Dim myPath As String
    Dim srtConec As String
    Set myconec = New ADODB.Connection
    myPath = App.Path & "\TD.mdb;"
    strconec = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPath
    myconec.Open strconec
        If strconec <= 0 Then
       MsgBox "Connection Failed！"
    Else
       MsgBox "Congratulations,Established！"
    End If
End Sub
Private Sub myConnection_ConnectComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)

    Dim strSql As String
    ListView1.Top = 0
    ListView1.Left = 0
    myRecordset.CursorType = adOpenKeyset
    myRecordset.LockType = adLockReadOnly
    strSql = "select * from TBillInfo"
    myRecordset.Open strSql, myConnection, , , adCmdText
    ShowListView
    myRecordset.Close
    myConnection.Close
End Sub

Public Sub ShowListView()
    Dim clmHead As ColumnHeader
    Dim ListItm As ListItem
    Dim i As Integer
    ListView1.ColumnHeaders.Clear
    ListView1.ListItems.Clear
    For i = 0 To myRecordset.Fields.Count - 1
        Set clmHead = ListView1.ColumnHeaders.Add()
        clmHead.Text = myRecordset.Fields(i).Name
    Next
        myRecordset.MoveFirst
    Do While Not myRecordset.EOF
        Set ListItm = ListView1.ListItems.Add()
        If IsNull(myRecordset.Fileds(0).Value) Then
            ListItm.Text = "NULL"
        Else
            ListItm.Text = myRecordset.Fields(0).Value
        End If
        For i = 1 To myRecordset.Fields.Count - 1
            If IsUull(myRecordset.Fields(i).Value) Then
                ListItm.SubItems(i) = "NULL"
            Else
                ListItm.SubItems(i) = myRecordset.Fields(i).Value
            End If
        Next
        myRecordset.MoveNext
    Loop
    ListView1.View = lvwReport
End Sub
Private Sub Form_Resize()

    ListView1.Width = Width - 200
    ListView1.Height = Height - 400
End Sub

Private Sub Form_Terminate()
    Set myRecordset = Nothing
    Set myConnection = Nothing
End Sub

--------------------编程问答-------------------- _ConnectComplete  不使用这样的事件，在相关代码的后面，直接写需要的代码 --------------------编程问答-------------------- 那什么时候才能用得到_ConnectComplete这个事件呢？

补充：VB ,  数据库(包含打印，安装，报表)