Lets see if I can explain this. Here the code
Dim dfs As Database
Dim db As Database
Dim dbs As Recordset
Sql1 = "Select * from vac where month between #" & ee & "# and #" & ss & "#"
Set db = OpenDatabase(txtPath)
Set dbs = db.OpenRecordset(Sql1)
Set dtaVac.Recordset = dbs
dtaVac.Refresh
Set dfs = OpenDatabase(txtPath)
dfs.Execute " INSERT INTO vacreport " _
& "SELECT * " _
& "FROM '" & dtaVac.Recordset & "';"

dfs.Close
dbs.Close
db.Close
I want to insert the result of the SQL sql1 into the table vacreport. I try this way with no result can you help!! I'm have a mental block this should be easy to do.