Private Sub ConnectionDb()
On Error GoTo Errorhandle

Set Conn = New ADODB.Connection
'恢复数据库后，需将这里的服务器名、数据库名、SA用户修改为实际正常的名称
Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=;Initial Catalog=localhost;Data Source=JXCCJ"

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

以上藍色的為連接數據庫關鍵的代碼，我的數據庫服務器名稱為：SATURN

數據庫名字為：JXCCJ 改嘞多邊，可我還是無法於數據庫連接上，是否有別的錯誤可能，請指教。萬分謝謝！

然后還有一問，在雙擊后，會齣現“對象變量或WITH塊變量未定義”請大傢幫忙。因為我是不能再新的新手，問題的深淺還讓大傢見笑嘞。