module1.bas

来自「固定资产及设备管理系统」· BAS 代码 · 共 13 行

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