start.bas

群里的通讯录管理 供参考 学习专用 无其他商业意义 源码较为简单

Attribute VB_Name = "Start"
'***********************************************************************
'* 文件名： databaseop.bas
'* 说  明： 启动模块
'* 版  本： 2005.12.14 颜志军 初版
'***********************************************************************

Option Explicit

Sub Main()
    If ConnDb() Then
        MainForm.Show
    Else
        MsgBox "连接数据库失败！", vbExclamation Or vbOKOnly, "错误"
    End If
End Sub