Module SQL_連線字串
    Friend Sub SQL_連線字串_ERP()
        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=GCM-MIS-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_考勤()
        ConString1 = "Data Source=" & 登入人IP & ";Initial Catalog=GCM-AM-SYS;Persist Security Info=True;User ID=B70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_本機()
        Dim Str As String = Application.StartupPath
        AccessConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Str & "/HabitData.mdb;Jet OLEDB:Database Password=Qaz!@#123;Persist Security Info=False;User ID=Admin"
    End Sub
End Module