台湾coser鬼瞳身高:如何连接数据库（VB与SQL），我做毕业设计，连接不上

先在工程里面引用ADO,然后继续下面的。我这里只是简单写了一下，没有写完整。

'定义数据库连接对象
Dim con As New ADODB.Connection

Private Function conToServer() As Boolean
conToServer = False
On Error GoTo Handler
'连接数据库
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=."
'打开数据库连接
con.Open
conToServer = True
Exit Function

'出错处理
Handler:
MsgBox "错误编号:" & Err.Number & vbCrLf & "错误描述:" & Err.Description, vbCritical + vbOKOnly, "连接错误！"
End Sub

应该这样写：
Dim con As New ADODB.Connection
Private Function conToServer() As Boolean
conToServer = False
On Error GoTo Handler
'连接数据库
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=local"
conToServer = True
Exit Function
'出错处理
Handler:
MsgBox "错误编号:" & Err.Number & vbCrLf & "错误描述:" & Err.Description, vbCritical + vbOKOnly, "连接错误！"
End Sub