vb中把excel数据按关键字修改数据表的一列的值

数据库是这样的 要导入的excel是
数据库的关键字比excel的多 顺序也不一样 求VB recordset连接后怎么写 数据库的关键字比excel的多