modsubmain.bas

一套简易的MIS系统。带SQLServer数据库。供参考。

Attribute VB_Name = "modSubMain"
'----------------------------------------------------------------------------------------------------
'
'
'                系统启动
'
'                日期：2006年6月
'
'                代码编写：王懿岩
'
'
'----------------------------------------------------------------------------------------------------
Sub Main()
    
    On Error GoTo ErrInfo
    
    '
    
    With DBCN
        .ConnectionString = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=SA;Initial Catalog=CCJK;Data Source=."
        .CursorLocation = adUseClient
        .Open
    End With
    
    frmMain.Show
    
    Exit Sub
ErrInfo:
    MsgBox Err.Description, vbInformation, "提示："
    End
    
End Sub