module1.bas

医药进销存管理系统 对医药的购买销售和库存进行系统管理

Attribute VB_Name = "Module1"
Option Explicit
Public a As Long
Public Function cnn() As ADODB.Connection  '定义连接函数
  '创建连接
  Set cnn = New ADODB.Connection
  cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=YYJXC"
End Function