module1.bas

一个ERP系统可以用来学习之用

Attribute VB_Name = "Module1"
Public adocon As New ADODB.Connection
Public adors As New ADODB.Recordset
Public i As Integer
Public Sub amain()
   ' adocon.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=ERP"
      adocon.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=erp"
End Sub