vb里封装的asp连接sql的语句，怎么好像不执行阿？能连上就是rs.open好像不执行，老大们给看看！

[GamVan]

Public Sub GVconn(GsID As String, GsPass As String, GserverName As String, GdataName As String)
Dim conncms As String
'依次为登陆密码，登陆id， 服务器名称, 数据库名字
conncms = "driver={SQL Server};server=" & GserverName & ";uid=" & GsID & ";pwd=" & GsPass & ";database=" & GdataName
Set conn = New Connection
On Error Resume Next
conn.Open conncms
If Err Then
Err.Clear
GVrs.Write ("<SPAN style=""font-size:14px; font-family:Verdana, Arial, 宋体;""""><br><p><center><strong>系统维护中请稍候登陆！</strong></center></SPAN>")
GVrs.End
End If
End Sub