Dim myOlApp As Object
Dim MyWo As Excel.Workbook
Dim mysheet As Excel.Worksheet
Dim MyCel As Variant
Dim MyRst As ADODB.Recordset
Dim ct As Long
Set myOlApp = CreateObject("excel.Application")
Set MyWo = myOlApp.Workbooks.Open("c:\abuser.xls")
Set mysheet = MyWo.Worksheets("Лист1")
Set MyRst = New ADODB.Recordset
MyRst.Open "select * from T1", CurrentProject.Connection, adOpenStatic, adLockReadOnly
If Not (MyRst.BOF And MyRst.EOF) Then
     Debug.Print MyRst![P1]
     Cells( 4 ,  3 ).Formula = (MyRst![P1])
     Cells( 4 ,  2 ).Formula = (MyRst![P2])
     Cells( 4 ,  1 ).Formula = CDate(MyRst![P3])
End If
MyRst.Close
Set MyRst = Nothing
'++++++++++++++++++++++++
MyWo.Save
Set mysheet = Nothing
MyWo.Close
Set MyWo = Nothing