Вывод строки из таблицы Access на лист Excel по запросу - VB

Формулировка задачи:

делаю так!

                    Листинг программы
                
 
                        
                          
                    
Sub test3()
Dim adodb_connection As New ADODB.Connection
Dim ado_recordset As New ADODB.Recordset
adodb_connection.Open "provider=Microsoft.Jet.OLEDB.4.0;User " & "ID=Admin;Data Source= C:\ppp\ГЃГ®Г°ГҐГ©.mdb"
Set ado_recordset.ActiveConnection = adodb_connection
ado_recordset.Open "select * from ГЄГ«ГЁГҐГ*ГІГ»"
MsgBox ado_recordset.Fields(1).Value
ado_recordset.Close
End Sub

вот выводит первую строку с помощью MsgBox а как теперь записать в страницу?

Решение задачи: «Вывод строки из таблицы Access на лист Excel по запросу»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Set MyXL = GetObject(App.Path & "\1.xlsx") 'или можно новый создать
  MyXL.Application.Visible = False               
  MyXL.Parent.Windows(1).Visible = True
  Set xlSheet = MyXL.Worksheets(1)
 
  MyXL.Worksheets(1).Cells(1, 1).Value = ado_recordset.Fields(1).Value
 
  MyXL.Save
  MyXL.Application.Quit
  Set xlSheet = Nothing
  Set MyXL = Nothing