请问这句SQL对不对

Question

数据库连接部分出错
下面是三种常用的连接方法
用其中一个就可以，去掉前面的单引号
<%
dim Conn
dim Connstr
set conn = server.createobject("adodb.connection")
'-----------------SQL SERVER 7.0数据库连接------------
'connstr="Driver={SQL Server};Server=(local);UID=cwecn;PWD=cwecn2002;Database=ndata"connstr="Provider=SQLOLEDB.1;User ID=cwecn;Initial Catalog=ndata;Data Source=(local);password=cwecn2002"'connstr="DBQ=" & server.mappath("data/nbook.mdb") & ";driver={Microsoft Access Driver (*.mdb)};"conn.open connstr
%>

Answer 1

Public ConnSchool As New ADODB.Connection    '数据库连接变量
Sub Main()
    Dim strConn As String
    strConn = "Provider=SQLOLEDB;Data Source=" & 服务器ip地址& ";Initial Catalog=school; User ID='sa';Password='sa';"
'    On Error GoTo errConn    With ConnSchool
        .CommandTimeout = 15
        .ConnectionTimeout = 15
        .ConnectionString = strConn
        .Open
        .CursorLocation = adUseClient
    End With
    Exit Sub
errConn:
    MsgBox"服务器设置错误或数据库未启动"
End Sub

Answer 2

Public ConnSchool As New ADODB.Connection    '数据库连接变量
Sub Main()
    Dim strConn As String
    strConn = "Provider=SQLOLEDB;Data Source=" & 服务器ip地址& ";Initial Catalog=school; User ID='sa';Password='sa';"
'    On Error GoTo errConn    With ConnSchool
        .CommandTimeout = 15
        .ConnectionTimeout = 15
        .ConnectionString = strConn
        .Open
        .CursorLocation = adUseClient
    End With
    Exit Sub
errConn:
    MsgBox"服务器设置错误或数据库未启动"
End Sub