asp.net(vb.net)串連sql server 2000資料庫的串連模組

   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)