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:密码,默认为空