Set cnnConn = New ADODB.Connection
        Dim rstRecordset As ADODB.Recordset
                With cnnConn
                    .ConnectionString = _
                        "Provider=Microsoft.Jet.OLEDB.4.0"
                    .Open "D:\Ñîòðóäíèêè\Ãðà÷åâ\MyDb.mdb"
                End With
 StrSQL = "SELECT ZhurnalVedomosti.Kod, ZhurnalVedomosti.Uchastok, ZhurnalVedomosti.Mesyazc, ZhurnalVedomosti.God, ZhurnalVedomosti.Data, Material.NameM, Material.Uzel, MaterialiPoVedomostyam.Kolvo, Lift.Adress, MaterialiPoVedomostyam.Lift, Sotrudniki.FIO, Sotrudniki.Êîä " & _
"FROM Lift INNER JOIN (Material INNER JOIN (Sotrudniki INNER JOIN (ZhurnalVedomosti INNER JOIN MaterialiPoVedomostyam ON ZhurnalVedomosti.Kod = MaterialiPoVedomostyam.Vedomost) ON Sotrudniki.Êîä = MaterialiPoVedomostyam.FIO) ON Material.Kod = MaterialiPoVedomostyam.Material) ON (Material.Kod = Lift.Kod) AND (Lift.NomerLifta = MaterialiPoVedomostyam.Lift) " & _
"WHERE (((ZhurnalVedomosti.Kod) = " & KodVedomost & "))"

        Set rstRecordset = cnnConn.Execute(StrSQL)