SQL連接的問題，請大傢幫忙。
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塊變量未定義”請大傢幫忙。因為我是不能再新的新手，問題的深淺還讓大傢見笑嘞。
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塊變量未定義”請大傢幫忙。因為我是不能再新的新手，問題的深淺還讓大傢見笑嘞。
