module1.bas

固定资产及设备管理系统

Attribute VB_Name = "Module1"
Public adoCon As New ADODB.Connection
Public adoRs As New ADODB.Recordset


Public Sub main()
    Set adoCon = New ADODB.Connection
    adoCon.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=MRSOFT"
'    frm_XTDL.Show
'frm_main.Show
End Sub