First off, I am terrible at Access and pretty bad at anything that is not .Net (As you can see, I keep trying to write in .Net)

What I am trying to do is to take each query that is in an Access DB and to save it on a Sharepoint list.

something like:
Code:
Option Compare Database
Option Explicit

Public Function SendUpdate()
     Dim DB as Access.Db = C:\Test.accdb

     For Each Qry as Query in DB
           DoCmd.TransferDatabase acExport, "WSS", DB, _
           "http://My.sharepointlist.com/list", _
           acQuery, Qry, Qry, True, Login, Password
     Loop
End Function
Obviously the "For Each" part doesn't work, but even when I do:

DoCmd.TransferDatabase acExport, "WSS", DB, "http://My.sharepointlist.com/list", acQuery, Qry, Qry, True, Login, Password

By itself I am getting a run-time error 3841 and I was hoping at least that part worked. Does anyone have any suggestions?

Thanks for the help, Zach