mod1.bas

《物流管理系统》从物流行业的实际需求出发

Attribute VB_Name = "Mod1"
Public adoCon As New ADODB.Connection
Public adoRs As New ADODB.Recordset
Public Sub main()
   adoCon.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=Building"
End Sub