Attribute VB_Name = "PubLicModule"
'數據連接模塊
Public MyStrs As String
Public DB_AdoRs As New ADODB.Recordset            '后添加一個記錄集對象
Public DB_AdoRs1 As New ADODB.Recordset           '后添加一個記錄集對象
Public DB_AdoRs2 As New ADODB.Recordset           '后添加一個記錄集對象

'定義一個變量，用戶保存員工編號信息
Public YgNums
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_YGGL"
End Function
Public Sub main()
   MyStrs = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DB_YGGL"
   frm_xtdl.Show
End Sub