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