Attribute VB_Name = "JxcDb"
'QQ:75347626
'MSN:whailin2000@hotmail.com
Option Explicit

Public Conn As ADODB.Connection
Public Cmd As ADODB.Command

Sub Main()
On Error GoTo Errorhandle

   ConnectionDb
   
   frmMain.Show

Exit Sub
Errorhandle:
   MsgBox "啟動失敗！"
End Sub

Private Sub ConnectionDb()
On Error GoTo Errorhandle

   Set Conn = New ADODB.Connection
   '恢復(fù)數(shù)據(jù)庫后，需將這里的服務(wù)器名、數(shù)據(jù)庫名、SA用戶修改為實際正常的名稱
   Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=;Initial Catalog=JXCCJ;Data Source=ERP002"
   
   Conn.Open
   Conn.CursorLocation = adUseClient
   
   
   Set Cmd = New ADODB.Command
   Set Cmd.ActiveConnection = Conn

Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub