数据库登陆问题

Question

Dim cnn1 As ADODB.Connection
   Dim rstEmployees As ADODB.Recordset
   Dim strCnn As String
   Dim strID As String
   Dim strFirstName As String
   Dim strLastName As String
   Dim booRecordAdded As Boolean' 打开连接。
   Set cnn1 = New ADODB.Connection
   strCnn = "Provider=sqloledb;" & _
      "Data Source=YZQ;Initial Catalog=声讯库;User Id=sa;Password=;"
   cnn1.Open strCnn
      
   ' 打开 Employee 表。
   Set rstEmployees = New ADODB.Recordset
   rstEmployees.CursorType = adOpenKeyset
   rstEmployees.LockType = adLockOptimistic
   rstEmployees.Open "hdmx", cnn1, , , adCmdTable
   方式为VB+SQL，服务器名为YZQ，要连接的数据库为“声讯库”系统默认用户为dbo,登陆名为sa,怎么新建一个用户及登陆名来连接“声讯库”，能照着上面修改一下吗？菜鸟我试了一上午都不不行，不幸！望赐教！
   

Answer 1

strCnn = "Provider=sqloledb;" & _
      "Data Source=YZQ;Initial Catalog=声讯库;User Id=其他用户名;Password=密码;"
这个用户名要能正常登陆的，就是SQL的一个用户。

Answer 2

用ADO控件生成连接字符串时，注意选中“允许保存密码”
Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=sa;Initial Catalog=声讯库;Data Source=YZQ