module1.bas

来自「钢材综合管理系统 钢材综合管理系统」· BAS 代码 · 共 10 行

Attribute VB_Name = "Module1"
Option Explicit
Public Function cnn() As String    '定义函数
  '返回一个数据库连接
  cnn = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=Gcgl;Initial Catalog=Gcgl"
End Function