module1.bas

金蝶财务软件主控台子功能管理,用于删除发布错误的BOS单据

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