Thanks, i used this code in the end:
Dim rs As ADODB.Recordset
Dim sSQL As String
Dim sValue As String
sSQL = "SELECT * FROM ExportTables"
Set rs = New ADODB.Recordset
rs.Open sSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
DoCmd.SetWarnings False
rs.MoveFirst
Do Until...