我用vb讀取一個ini的內容並應用到數據庫組件中,但是不能成功請問是哪出錯了

Question

Public DatabaseConnectionString '//定义连接字符串
Public conn '//定义连接对象
Public rs '//定义记录集
Dim rp As Response
Dim rq As Request
Dim sr As server
Dim se As Session
'初始化
Public Sub OnStartPage(mysc As ScriptingContext)
On Error GoTo errHandler
Set rp = mysc.Response
Set rq = mysc.Request
Set sr = mysc.server
Set se = mysc.Session
Dim server As String
Dim userid As String
Dim password As String
Dim databasename As String
Dim myIniFile As New cIniFile  '這是讀ini 的模塊,這個是正確的
myIniFile.INIFile = IniFilePath
server = Trim(myIniFile.GetFile("DATABASE", "server"))
userid = Trim(myIniFile.GetFile("DATABASE", "uid"))
password = Trim(myIniFile.GetFile("DATABASE", "pwd"))
databasename = Trim(myIniFile.GetFile("DATABASE", "databases"))
DatabaseConnectionString = "Provider=SQLOLEDB;Data Source=" + server + ";Initial Catalog=" + databasename + ";User ID=" + userid + "; Password=" + password + ";"
Set conn = CreateObject("ADODB.Connection")
conn.Open DatabaseConnectionString
errHandler:
    Debug.Print "Error " & Err.Number & " " & Err.Description
    Exit Sub
End Sub
'初始化结束
'运行sql
'统计记录数目
Public Function RecordCount(Sql)
On Error GoTo errHandler
Dim CountNum, Rs1
Set Rs1 = CreateObject("ADODB.Recordset")
Rs1.Open Sql, conn, 1, 1
If Not Rs1.EOF Then
    CountNum = Rs1.RecordCount
    Rs1.Close
    If CountNum > 0 Then
        RecordCount = CountNum
    Else
       RecordCount = 0
    End If
Else
    RecordCount = 0
End If
errHandler:
    Debug.Print "Error " & Err.Number & " " & Err.Description
    Exit Function
End Function
'执行sql
Public Function RunSql(Sql)
On Error GoTo errHandler
conn.Execute (Sql)
  RunSql = True
errHandler:
    Debug.Print "Error " & Err.Number & " " & Err.Description
    Exit Function
End Function
' //返回记录集
Public Function GetRecordSet(Sql)
On Error GoTo errHandler
Set rs = CreateObject("ADODB.Recordset")
rs.Open Sql, conn, 3, 1
GetRecordSet = rs
errHandler:
    Debug.Print "Error " & Err.Number & " " & Err.Description
    Exit Function
End Function
'//Rs分页
 Public Function ExportPageInfo(ByRef rs, curpage, i, LinkFile)
 Dim retval, j, pageNumber, BasePage
 retval = "第" & curpage & "页/总" & rs.pagecount & "页 "
 retval = retval & "本页" & i & "条/总" & rs.RecordCount & "条 " If curpage <= 1 Then
  retval = retval & "首页 前页 "
 Else
  retval = retval & "<a href='" & LinkFile & "Page=1'>首页</a> <a href='" & LinkFile & "Page=" & CStr(curpage - 1) & "'>前页</a> "
 End If
 If curpage >= rs.pagecount Then
  retval = retval & "后页 末页"
 Else
  retval = retval & "<a href='" & LinkFile & "Page=" & CStr(curpage + 1) & "'>后页</a> <a href='" & LinkFile & "Page=" & CStr(rs.pagecount) & "'>末页</a>"
 End If
 
 retval = retval & "<br>"
 BasePage = (curpage \ 10) * 10
 If BasePage > 0 Then retval = retval & " <a href='" & LinkFile & "Page=" & (BasePage - 9) & "'>&lt;&lt;</a>"
 For j = 1 To 10
  pageNumber = BasePage + j
  If pageNumber > rs.pagecount Then Exit For
  If pageNumber = CInt(curpage) Then
   retval = retval & " <font color='#FF0000'>" & pageNumber & "</font>"
  Else
   retval = retval & " <a href='" & LinkFile & "Page=" & pageNumber & "'>" & pageNumber & "</a>"
  End If
 Next
 If rs.pagecount > BasePage Then retval = retval & " <a href='" & LinkFile & "Page=" & (BasePage + 11) & "'>&gt;&gt;</a>"
  ExportPageInfo = retval
End Function
Public Sub OnEndPage()
Set rs = Nothing
Set conn = Nothing
Set rp = Nothing
Set rq = Nothing
Set sr = Nothing
Set se = Nothing
End Sub