module1.bas

网络化管理解决了实际工作中不能及时对连锁店销售情况进行统一管理的问题

Attribute VB_Name = "Module1"
Public PublicStr As String
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=shop"
End Function

Public Sub main()
 PublicStr = "Provider=SQLOLEDB.1;Persist Security Into=False;User ID=sa;Initital Catalog=shop"
 Frm_login.Show
End Sub