Attribute VB_Name = "Module1"
     Option Explicit
Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Public ServerName_Str As String
Public Conn_System As Connection
Public Conn_System3 As Connection
Public Class As New Class_System
Public Conn_System1 As New ADODB.Connection
Public Conn_System2 As New Connection
Public YesNoStr As String
Public PathStr As String
Public BakFile As String, BakFilePath As String
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub Main()
Set Conn_System = Cw_DataEnvi.Connection1

Form_user.Show

End Sub