ADO的OPEN语句用到的用户名和密码在ACCESS中如何设置？

Question

我倒！你的回答好简单！
有谁能我如何在ACCESS里设置这些？？？

Answer 1

This example uses the Open and Close methods on both Recordset and Connection objects that have been opened.'BeginOpenVB    'To integrate this code
    'replace the data source and initial catalog values
    'in the connection stringPublic Sub OpenX()   Dim Cnxn As ADODB.Connection
   Dim rstEmployees As ADODB.Recordset
   Dim strCnxn As String
   Dim strSQLEmployees As String
   Dim varDate As Variant   ' Open connection
   strCnxn = "Provider=sqloledb;Data Source=MyServer;Initial Catalog=Pubs;User Id=sa;Password=; "
   Set Cnxn = New ADODB.Connection
   Cnxn.Open strCnxn
   
   ' Open employee table
   Set rstEmployees = New ADODB.Recordset
   strSQLEmployees = "employee"
   rstEmployees.Open strSQLEmployees, Cnxn, adOpenKeyset, adLockOptimistic, adCmdTable   ' Assign the first employee record's hire date
   ' to a variable, then change the hire date
   varDate = rstEmployees!hire_date
   Debug.Print "Original data"
   Debug.Print "  Name - Hire Date"
   Debug.Print "  " & rstEmployees!fname & " " & _
      rstEmployees!lname & " - " & rstEmployees!hire_date
   rstEmployees!hire_date = #1/1/1900#
   rstEmployees.Update
   Debug.Print "Changed data"
   Debug.Print "  Name - Hire Date"
   Debug.Print "  " & rstEmployees!fname & " " & _
      rstEmployees!lname & " - " & rstEmployees!hire_date   ' Requery Recordset and reset the hire date
   rstEmployees.Requery
   rstEmployees!hire_date = varDate
   rstEmployees.Update
   Debug.Print "Data after reset"
   Debug.Print "  Name - Hire Date"
   Debug.Print "  " & rstEmployees!fname & " " & _
      rstEmployees!lname & " - " & rstEmployees!hire_date   rstEmployees.Close
   Cnxn.Close
   Set rstEmployees = Nothing
   Set Cnxn = NothingEnd Sub
'EndOpenVB