Insert Values To Multiple Cells At Once

I am writing a simple VB app to allow my analysts to export data from a SQL table into an Excel spreadsheet. I have the following

lngRow = lngRow + 1
Do While Not rs.EOF
lngCol = 1
For Each objField In rs.Fields
objExcel.Cells(lngRow, lngCol).NumberFormat = "@"
objExcel.Cells(lngRow, lngCol).Value = objField.Value
lngCol = lngCol + 1
Next
rs.MoveNext
lngRow = lngRow + 1
Loop

The code works perfect... except... it takes far too long (as one would expect from iterating through 11,000 records cell by cell)

Is it possible to set the values for an entire row with one statement (or even better, the whole sheet at once), like maybe I have a string that is tab delimited or something