vb 连接数据库 问题

  VB code:


Imports System.Web
Imports System.Web.SessionState


Namespace GDSDMAP




Public Class [Global]
Inherits System.Web.HttpApplication

#Region " 组件设计器生成的代码 "

Public Sub New()
MyBase.New()

'该调用是组件设计器所必需的。
InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

End Sub

'组件设计器所必需的
Private components As System.ComponentModel.IContainer

'注意: 以下过程是组件设计器所必需的
'可以使用组件设计器修改此过程。
'不要使用代码编辑器修改它。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ComponentModel.Container
End Sub

#End Region

Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
' 在应用程序启动时激发

Application.Add("dbconnstring", "driver={SQL server};server=.;uid=gdhes;pwd=gdhes1234;database=gdhes;")
Application.Add("CheckSys", "driver={SQL server};server=192.1.0.201;uid=CheckSys;pwd=sa;database=123;")

restartGConn()
End Sub

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
' 在会话启动时激发

On Error Resume Next


Dim GConn As ADODB.Connecti