Public cn As ADODB.Connection
Public rs As ADODB.Recordset

Sub workbookopen()
' This demo requires a reference to
' the Microsoft ActiveX Data Objects 2.x Library

Dim sql As String
Cells.Clear

' Open the connection
Set cn = New ADODB.Connection
If cn.State = 1 Then Connection.Close
cn.Open ConnectionString:="Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.Path & "/tst.accdb" & ";"

' Create RecordSet
Set rs = New ADODB.Recordset
If rs.State = 1 Then rs.Close
sql = "select * from omuzgoron"
rs.Open Source:=sql, ActiveConnection:=cn
MsgBox rs.RecordCount
MsgBox rs.Fields.Count
' Write the field names
For i = 0 To rs.Fields.Count - 1
Range("A1").Offset(0, i).Value = rs.Fields(i).Name
Next i
' Write the recordset
Range("A1").Offset(1, 0).CopyFromRecordset rs
' For i = 0 To rs.RecordCount - 1
' For j = 0 To rs.Fields.Count - 1
' If i = 0 Then i = i + 2
'
' Next j
' Next i

End Sub