Try this...
(and before anybody makes any comments - we all have different ways of doing things - thank you microsoft!)
Function load()
Dim db1 As database
Set db1 = currentdb
Dim sqlstring As String
' the where clause here will speed up your record getting if it is a big table
sqlstring =...