vb6.0连接sql server 2000

Question

Public Function ConnnectToDatabase() As Boolean
On Error GoTo Errhandler
Set g_conn = New ADODB.Connection
Dim ServerName As String, DBName As String, UserName As String, strPassword As String
ServerName = "(local)"
DBName = "meeting"
UserName = "sa"
strPassword = "sa"
With g_conn
.CursorLocation = adUseClient
.CommandTimeout = 100
.ConnectionString = "Provider=SQLOLEDB;Persist Security Info=true" & _
";User ID=" & UserName & ";Initial Catalog=" & DBName & _
"; Data Source=" & ServerName & ";Password=" & strPassword
.Open
End With
ConnectToDatabase = True
Exit Function
Errhandler
ConnectionToDatabase = False
MsgBox Err.Description, vbInformation
End Function
Private Sub Form_Load()If ConnectToDatabase = False Then
MsgBox "Error!", vbInformation
Text1.Text = "false"
Else
Text1.Text = "true"
End IfEnd Sub
不知怎么回事，老是出错，输入ERROR。
ServerName = "(local)"我曾用127.0.0.1来连接也不行。

Answer 1

代码居然少了一句，Public g_conn As ADODB.Connection

Answer 2

我也在查询分析器用select @@servername  执行后得出服务器的名称，结果修改后还是不行。
确保有meeting数据库的存在，用户名sa和密码sa也是没错的。真不知哪里出了问题？ 

Answer 3

.
.
Errhandler:
.
.

Answer 4

联接本机的话用 点 试一下(.)
   cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=."

Answer 5

 cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=." 
 

Answer 6

本机用127.0.0.1如果还是不行的话检查连接字符串，还有就是CommandTimeout = 100这句去掉。