)IfInStr("INSERT,DELETE,UPDATE",UCase$(SplitSQL(0))
)Thencmd.Connection=cnncmd.Connection.Open()cmd.CommandText=strSQLcmd.ExecuteNonQuery()Elseadpt=NewSqlClient.SqlDataAdapter(strSQL,cnn)adpt.Fill(rst)ExecuteSQL=rstEndIfCatchexAsExceptionerrMsg=ex.MessageFinallyrst=Nothingcnn=NothingEndTryEndFunctionEndModule调用时在asp.net后台写上txtSQL="SELECT*FROMuser";DBSet=ExecuteSQL(txtSQL,ErrorMsg)就可以查询db返回结果了。