strName,strAddr取到值吗?
cnnDB.execute "update [Company] set address='"& cstr(strAddr) & "' where company='" & trim(Cstr(strName)) & "'"