вот эта функция
///
Tbl.Open "Select * from TABLE", cn, adOpenKeyset, adLockOptimistic, adCmdText
Tbl.MoveFirst
While Not Tbl.EOF
If Tbl.Fields(14).Value = " " Then
Tbl.Fields(14).Value = "WORD"
Tbl.Update
End If
Tbl.MoveNext
Wend
Tbl.Close
///
тоже чего то не работает :(