vb6系统安装-初始化SQLserver数据库

需建Module1
Option Explicit
Public goSQLServer As SQLDMO.SQLServer
Public gShowServerEvents As Boolean
Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Cn As New ADODB.Connection

新建一个Form,Copy以下代码

VERSION 5.00
Begin VB.Form Form1
   BorderStyle     =   1  'Fixed Single
   Caption         =   "初始化系统数据库..."
   ClientHeight    =   3360
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5340
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3360
   ScaleWidth      =   5340
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2
      BackColor       =   &H00FFFFFF&
      Caption         =   "正在查找SQLSERVER数据库服务器，请稍候..."
      BeginProperty Font
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   540
      MaskColor       =   &H00FFFFFF&
      TabIndex        =   5
      Top             =   975
      Width           =   4290
   End
   Begin VB.CommandButton Command1
      Caption         =   "退出"
      BeginProperty Font
         Name            =   "宋体"
         Size            =   10.5
         Charset         =