Fill empty cells

for ca 12½ år siden fik jeg det her stykke kode som virkede den gang, nu har jeg være ude af access gamet en rum tid og skiftet pc flere gange og formentlige også fået en nyere version af access, nu har jeg igen får behov for fylde nogle tomme celler med værdien fra cellen over, men jeg kan ikke få koden til at virke, er der en som kan hjælpe ?

Koden fra LKP er her:
*****************************************************************
Public Sub FillEmptyCells()

    Dim rst As ADODB.Recordset
    Dim strBuffer As Variant
 
    Set rst = New ADODB.Recordset
         
    rst.Open "Tabel1", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic
 
    strBuffer = rst(1)
    rst.MoveNext
    Do While Not rst.EOF
        If VarType(rst(1)) = vbNull Then
            rst(1) = strBuffer
            rst.Update
        Else
            strBuffer = rst(1)
        End If
        rst.MoveNext
    Loop
 
End Sub
*****************************************************************

..erik