Runtime Eror 1004

Hello All,

Can anyone tell me what I need to do to fix this piece of code? I am getting the following runtime error:

"Runtime Error 1004 - Method 'Add' of object 'Sheets' failed." I bolded the line of code that is giving me the problem.

'Loop through until all orders have a sheet built for them and the data is transfered to the appropriate sheet
If Not rst11.EOF Then
Do Until rst11.EOF
'Next line adds worksheet. The parameter of the Add method adds
'the new worksheet at the end of all existing worksheets
Set xlWks = xlWkb.Worksheets.Add(, Worksheets(Worksheets.Count))
xlWks.Name = "Order" & rst11!OrderNo
xlWks.Range("A1").Activate
'This For...Next loop iterates through the array of column names, puts the column name in a cell
'bolds it, and moves one cell to the right
For iCtr = LBound(aryCols) To UBound(aryCols)
xlApp.ActiveCell.Value = aryCols(iCtr)
xlApp.ActiveCell.Font.Bold = True
xlApp.ActiveCell.Offset(0, 1).Activate
Next iCtr
rst11.MoveNext
Loop
End If


Thank you!