请问VB怎么连接SQL数据库？
我想一运行VB就打开数据库，所以在主函数里连接
这是在新添加的模块里写的，可是运行不了？在第三行出错，我不知道为什么？第一，第二行是什么意思我不是很明白，请教教我!我真的好急。
Public Const LOG_DEBUG As String = "DEBUGS"
Public Const LOG_ERROR As String = "ErrorS"

Public Conn As New ADODB.Connection

Public Sub Main()

On Error GoTo ErrorHandler

initialize_log
t_log.log_open


Set Conn = New ADODB.Connection
' 用ODBC DSN 建立连接
Conn.ConnectionString = "driver={SQL Server};server=YU-TSUOL27GB26S;" & _
"UID=;PWD=;Database=KinderGarten"
' Conn.ConnectionString = "driver={SQL Server};server=F19;" & _
"UID=;PWD=;Database=KinderGarten"
Conn.Open

Call diet_select

Call t_log.log_write(Format(Date, "YYYYMMDD") & " " & Format(Time, "HH:MM:SS"), " open KinderGarten success ！")

Exit Sub

ErrorHandler:

Call t_log.log_write(LOG_ERROR, Err.Description)

End Sub

Public Sub initialize_log()

Set t_log = New Log

End Sub

End Sub