'Out of stack Space', HJÆLP

Jeg har denne kode:
-----------------------------------------------
Public Sub OpretForbindelse()

Set xlApp = New Excel.Application
xlApp.Workbooks.Open Form1.txtSourceFileName.Text
xlApp.Visible = True
 
Set datDB = DBEngine.Workspaces(0).OpenDatabase("I:\variable_liste.mdb")
strSQL = "SELECT * FROM Variable_Liste"
Set recVariable = datDB.OpenRecordset(strSQL)

Set objWordApp = CreateObject("Word.Application")
objWordApp.Visible = True
objWordApp.Documents.Open Form1.txtDestinationFileName.Text

lav
End Sub

Private Sub lav()
On Error GoTo error1

    Do While Not recVariable.EOF
   
Access_Variable = "<" & recVariable("ExportVarRef") & ">"
Word_Variable = recVariable("ObjectRef")
Access_Cell_Variable = recVariable("CellRef")
Access_Sheet_Variable = recVariable("Sheetname")
         
VarReplace = xlApp.ActiveWorkbook.Worksheets(Access_Sheet_Variable).Range(Access_Cell_Variable)
objWordApp.Selection.Find.Execute Access_Variable, False, False, False, False, False, True, wdFindContinue, False, VarReplace, 2
   
recVariable.MoveNext
Loop

error1:
lav
recVariable.MoveNext
Exit Sub

End Sub
-----------------------------------------------
Det den gør er at den går ind i en ACCESS database, henter nogle celle informationer fra en EXCEL fil, derefter går den ind i et WORD dokument, finder det som passer med hvad der står i ACCESS databasen og skifter/Erstatter det med det som den fandt i EXCEL filen.... lidt kompliceret....

MEN efter den har kørt lidt igennem, kommer den og siger OUT OF STACK SPACE, det er sikkert fordi at den skal køre mere en 500 poster igennem....

Kan man ikke afhjælpe det lidt?? Jeg har lavet en ERROR handling, da den nogen gange vil falder over en celle i EXCEL'en der er tom, og så melder den fejl....

NOGEN der kan hjælpe mig med at få den til at kører mere optimalt???