怎么修改数据库连接方式

<%

sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mynntdata.mdb;"

Set conn = CreateObject("ADODB.Connection")

conn.Provider = "MSDataShape"

conn.ConnectionString = "Data " & sConn

conn.Open

sql = "SHAPE{SELECT DISTINCT emp_name FROM yw_dingcai} " & _

    "APPEND({" &_

    "SELECT emp_name, COUNT(*) AS cnt, 0 AS t FROM yw_dingcai GROUP BY emp_name " &_

    "UNION ALL " &_

    "SELECT emp_name, COUNT(*) AS cnt, 1 AS t FROM yw_dingcai WHERE cint(Hour(sign_time)) < 12 GROUP BY emp_name " &_

    "UNION ALL " &_

    "SELECT emp_name, COUNT(*) AS cnt, 2 AS t FROM yw_dingcai WHERE cint(Hour(sign_time)) > 12 GROUP BY emp_name" &_

    "} AS tbl " & _

    "RELATE emp_name TO emp_name)"



Set conn2 = CreateObject("ADODB.Connection")

conn2.Open sConn

Set rs2 = CreateObject("ADODB.Recordset")

rs2.CursorLocation = 3

rs2.Open "SELECT * FROM yw_gerending WHERE 1=0", conn2, 1, 4



Set rs = CreateObject("ADODB.Recordset")

rs.CursorLocation = 3

rs.Open sql, conn, 1, 1

Do While Not rs.EOF

    rs2.AddNew

    rs2("emp_name") = rs("emp_name")

    Set rs1 = rs("tbl").Value

    Do While Not rs1.EOF

        Select Case rs1("t").Value

            Case 0 rs2("meal_allcount") = rs1("cnt")

            Case 1 rs2("meal_count1") = rs1("cnt")

            Case 2 rs2("meal_count2") = rs1("cnt")

        End Select

        rs1.MoveNext

    Loop

    rs.MoveNext

Loop

rs2.UpdateBatch

rs2.Close

Set rs2 = Nothing

rs1.Close

Set rs1 = Nothing

rs.Close

Set rs = Nothing

conn.Close

Set conn = Nothing

conn2.Close

Set conn2 = Nothing

%>

以上代码,如果连接数据库语句写在独立页面(例如:conn.asp) 要怎么修改?
conn.asp 代码

<%

Set conn = Server.CreateObject("ADODB.Connection")

rem 数据库路径,请自己修改，否则可能运行不正常

conn.open("driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("nntdata\mynntdata.mdb"))

%>