MS SQL SERVER +MS ACCESS + ADO (подтупливает)

Private Sub Form_Open(Cancel As Integer)
   Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset
         
   'Create a new ADO Connection object
   Set cn = New ADODB.Connection
 
   'Use the Access 10 and SQL Server OLEDB providers to
   'open the Connection
   'You will need to replace MySQLServer with the name
   'of a valid SQL Server
   With cn
      .Provider = "Microsoft.Access.OLEDB.10.0"
      .Properties("Data Provider").Value = "SQLOLEDB"
      .Properties("Data Source").Value = "serverved4"
      .Properties("User ID").Value = "sa"
      .Properties("Password").Value = "мой пароль"
      .Properties("Initial Catalog").Value = "TESTBASE"
      .Open
   End With
 
   'Create an instance of the ADO Recordset class, and
   'set its properties
   Set rs = New ADODB.Recordset
   With rs
      Set .ActiveConnection = cn
      .Source = "SELECT * FROM tblotpravki"
      .LockType = adLockOptimistic
      .CursorType = adOpenKeyset
      .Open 
   End With
   
   'Set the form's Recordset property to the ADO recordset
   Set Me.sf1.Form.Recordset = rs
   Set rs = Nothing
   Set cn = Nothing
End Sub

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Sub ...
...
Debug.Print timeGetTime
...
      cn.Open 
Debug.Print timeGetTime
...
      rs.Open 
Debug.Print timeGetTime
...
   Set Me.sf1.Form.Recordset = rs
Debug.Print timeGetTime
...