SQL连接字符串构造函数

Function sqlConnStr(ByVal Category As String, Optional ByVal Host As String = "localhost", Optional ByVal User As String = "sa", Optional ByVal Pass As String) As String
    sqlConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
                 "Data Source=" & Host & ";" & _
                 "Initial Catalog=" & Category & ";" & _
                 "Password=" & Pass & ";" & _
                 "User ID=" & User & ";"
End Function

Category：数据库名，必选
Host：主机名，默认为本机
User：登陆名，默认为SA
Pass：密码，默认为空