module1.bas

工资管理系统

Attribute VB_Name = "Module1"
Public constr As String

Public Sub Main()
constr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=工资管理系统;Data Source=WQP-7F91D7822B8"
Main.Show

End Sub