连接数据库,该如何处理

连接数据库
我是一个新手，想请商手帮忙写一个连接带密码的数据库的代码。
要求：1、因为是多次使用希望写成一个类或公共过程  
            2、希望写成默认路径

------解决方案--------------------
以下是在网上找到的一篇文章，希望对您有帮助。找不到作者了。

asp.netvb.net连接sql server 2000数据库的连接模块module

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)

http://www.sym*.com/Article-16289.html