Attribute VB_Name = "Module1"
Public g_ConnStr As String

Sub Main()
     Dim ls As New LinkSql
     ls.Show 1
     If ls.m_b = False Then
        Exit Sub
        End
     End If
     MainFrm.Show
End Sub