module1.bas

通讯录,电子通讯录,把自己的好友加在里边,查找起来十分方便

Attribute VB_Name = "Module1"
Option Explicit
Public cnFriend As ADODB.Connection

Public Sub Friendconnection()
    Set cnFriend = New Connection
    
    cnFriend.ConnectionTimeout = 15
    cnFriend.Open " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hail-fellow.mdb;Persist Security Info=False"
    cnFriend.CursorLocation = adUseClient
End Sub

Public Sub main()
    Friendconnection
    frmSplash.Show
End Sub

Public Sub EnterTab(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{Tab}"
    End If
End Sub