Attribute VB_Name = "Mdl_Data"
'Download by http://www.codefans.net
'數據連接模塊
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     '定義連接字符串函數
'   PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_Goods"
   Set Cnn = New ADODB.Connection
   Cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_Goods"
End Function
Public Sub main()
   PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_Goods"
   frm_xtdl.Show
End Sub