access 更新整列数据,从Excel工作表数据更新Access数据库

I extract data from my Access database into an Excel worksheet using a macro. I first open a connection to the database, define my sql statement in a string var and then dump that data in a recordset:

Dim db As Database

Dim rs As RecordSet

Dim sql As String

Dim dbLocation As String

dbLocation = ThisWorkbook.Path & "\database\data.accdb"

Set db = OpenDatabase(dbLocation)

sql = "Select * FROM [Master Table]"

Set rs = db.OpenRecordSet(sql, dbOpenSnapshot)

If Not rs.EOF Then

Worksheets("Sheet1").Range("A1").CopyFromRecordset rs

End If

rs.Close

Set rs = Nothing

db.Close

Set db = Nothing

This works perfectly. I distribute this to some people and ask them to update fields. I then need to update the Access data wi