Private Sub cmdConnect_Click()
If OptWin.Value = True Then
connstr = "provier=MSDASQL.1;integrated security=SSPI;" & "persist security info=false;initial catalog=" & Trim(ComboDatabase.Text) & ";Data Source=" & Trim(ComboServer.Text)
End If
On Error GoTo errConnect
If conn.State = adStateOpen Then conn.Close
conn.Open connstr
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
MsgBox "连接数据库成功!", vbOKOnly + vbExclamation, "提示"
MDIForm1.Show
MDIForm1.SetFocus
Unload Me
Exit Sub
errConnect:
MsgBox Err.Description, vbOKOnly + vbExclamation, "提示"
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub