asp.net(vb.net)连接sql server 2000数据库的连接模块(module)

核心提示：Module MdlCommon Public txtSQL As String '存放SQL语句 Public DBSet As DataSet '查询得到的记录集 Public ErrorMsg As String '存放错误信息 Public Function Execute

Module MdlCommon
　  Public txtSQL As String　　 '存放SQL语句
　  Public DBSet As DataSet　　 '查询得到的记录集
　  Public ErrorMsg As String　 '存放错误信息 

　  Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) As DataSet
　　　  Dim cnn As SqlClient.SqlConnection
　　　  Dim cmd As New SqlClient.SqlCommand()
　　　  Dim adpt As SqlClient.SqlDataAdapter
　　　  Dim rst As New DataSet()
　　　  Dim SplitSQL() As String
　　　  errMsg = ""
　　　  Try
　　　　　  SplitSQL = Split(strSQL)
　　　　　  cnn = New SqlClient.SqlConnection("data source=(local);initial catalog=urp;user id=sa;pwd=1234")

　　　  If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) Then
　　　　　　　  cmd.Connection = cnn
　　　　　　　  cmd.Connection.Open()
　　　　　　　  cmd.CommandText = strSQL
　　　　　　　  cmd.ExecuteNonQuery()
　　　　　  Else
　　　　　　　  adpt = New SqlClient.SqlDataAdapter(strSQL, cnn)
　　　　　　　  adpt.Fill(rst)
　　　　　　　  ExecuteSQL = rst
　　　　　  End If
　　　  Catch ex As Exception
　　　　　  errMsg = ex.Message
　　　  Finally
　　　　　  rst = Nothing
　　　　　  cnn = Nothing
　　　  End Try
　  End Function End Module
调用时在asp.net后台写上txtSQL="SELECT ....FROM........";
DBSet=ExecuteSQL(txtSQL,ErrorMsg)