Private Sub pFoto_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset2
Dim rsA As DAO.Recordset2
Dim fld As DAO.Field2
Dim strFile As String
    
Set dbs = CurrentDb
strSQL = "SELECT tbKadry.Òàá¹, tbKadry.Ôîòîãðàôèÿ, tbKadry.Ôîòî FROM tbKadry ORDER BY tbKadry.Òàá¹;"
Set rst = dbs.OpenRecordset(strSQL)
Set fld = rst("ÔÎÒÎ")
    Do While Not rst.EOF
    If rst.Fields(1) <> "" Then
    rst.Edit
        Set rsA = fld.Value
        rsA.Edit
        rsA.Fields(2) = rst.Fields(1)
        rsA.Update
    rst.Update
    End If
    rst.MoveNext
    Loop
    rst.Close
    dbs.Close
    
    Set fld = Nothing
    Set rsA = Nothing
    Set rst = Nothing
    Set dbs = Nothing

End Sub

Set rsA = fld.Value
        rsA.Edit
        rsA.Fields(2) = rst.Fields(1)
        rsA.Update

strSQL = "SELECT tbKadry.Таб№, tbKadry.Фотография, tbKadry.Фото FROM tbKadry ORDER BY tbKadry.Таб№;"
Set rst = dbs.OpenRecordset(strSQL)
Set fld = rst("Фото")