Sub RawLotInput()

Dim dbs As Database
Dim rs As Recordset
Dim Ws As Worksheet
dim wb as workbook
Dim Path As String
Dim strSQL As String

On Error GoTo ErrorHandler

ThisWorkbook.Activate
'' - - - - - - - - - - - - - - - - - - - - - - - - - - - -
''Open the database

Path = "C:\Documents and Settings\ofomaiu\Desktop\PP database.mdb" 
Set dbs = workspaces(0).OpenDatabase(Path)

' SQL statement- Change Query parameters here
strSQL = "SELECT [Access Compatible].*" & _
" FROM [Access Compatible]" & _
" WHERE ((([Access Compatible].[Firing Lot No#])=80554) AND (([Access Compatible].[Run No#])='21'));"

Set rs = dbs.OpenRecordset(strSQL)
set wb = thisworkbook

wb.worksheets("Raw Data").delete

'dont use set ws = activesheet as when you have a few 
'copies of excel open at the same time weird things can happen

set ws = wb.worksheets.add

ws.name = "Raw Data"

'Clear cells first
'Cells.Select
'Selection.ClearContents
'you dont need this if you delete the sheet
'I would recommend deleting the sheet rather than clearing cells

'removed copyfromrecordset from your loop
For i = 0 To rs.Fields.Count - 1
Ws.Cells(1, i + 1) = rs.Fields(i).Name
Next

'Export data from the recordset to a worksheet (Sheet1).
Ws.Range("A2").CopyFromRecordset rs


'Auto-fit columns
'Select statements are usually unnecessary and where
'you have select followed selection you can combine this

ws.Range("A1").CurrentRegion.Columns.AutoFit


'' - - - - - - - - - - - - - - - - - - - - - - - - - - - -
lbTidy:
dbs.Close

Set dbs = Nothing
Set rs = Nothing

Exit Sub
'' - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ErrorHandler:

vtMessage = "Table and data creation error"
vtMessage = vtMessage & _
Chr(10) & _
Chr(10) & "Error Number: " & Err & _
Chr(10) & "Error Description: " & Error()

MsgBox vtMessage, strSQL, vbInformation, ctByg
Resume lbTidy
End Sub