来自「您的可用下载数就会增加1次。更多说明请参看量越高得到的下载个数越」· 代码 · 共 11 行

Attribute VB_Name = "XTCS"
Public dbConn As ADODB.Connection
Public dbRecord As ADODB.Recordset
Public Admin As String
Sub main()
Set dbConn = New ADODB.Connection
Set dbRecord = New ADODB.Recordset
    dbConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\database\cygl.mdb;Persist Security Info=False"
    DLXX.Show 1
End Sub