Private Sub pech_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "C:\ÃÑÊ ÁÀÇÀ ÄÀÍÛÕ\databaze.mdb"
    .Open
End With


Dim SQLstr As String
Dim b As String
b = Year(Date) -  1 

With rs
    .ActiveConnection = cn
    .LockType = adLockReadOnly
    .CursorType = adOpenDynamic
    .Source = "select * From databaze where (Vznos < " + b + " )"
    .Open
End With

Set dt.DataSource = rs
dt.Show

Set rs = Nothing
Set cn = Nothing
End Sub