mdl_data.bas

很好的行政管理系统,供大家享用,功能非常强大,希望大家的支持

Attribute VB_Name = "Mdl_Data"
'数据连接模块
Public PublicStr As String
Public AdoRs As New ADODB.Recordset           '后添加一个记录集对象
Public AdoRs1 As New ADODB.Recordset           '后添加一个记录集对象
Public AdoRs2 As New ADODB.Recordset           '后添加一个记录集对象
Public Function Cnn() As ADODB.Connection     '定义连接字符串函数
   Set Cnn = New ADODB.Connection
   Cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_Service"
End Function
Public Sub main()
   PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_Service"
   frm_xtdl.Show
End Sub