Otra duda de VB6 consulta a tabla access

Hola estimado experto en esta ocasión mi pregunta es la siguiente:
Este es el código que tengo en un form desde donde pretendo extraer 2 reportes como vera en el 1er comando consulto y reporto por todos los trabajadores (nombre de la tabla: trabajadores), pero el problema es en el 2do comando se trata de ingresar un texto (campo: "faena" de la tabla access) por medio de inputbox y reportarlo. La linea subrayada sale destacada como error,
Dim base As Connection
Dim temp As Recordset
Dim consulta As String, cod As String
Private Sub Command1_Click()
temp.Close
Set DataReport1.DataSource = Nothing
consulta = "select * from trabajadores"
temp.Open consulta, base, adOpenStatic, adLockReadOnly
Set DataReport1.DataSource = temp
DataReport1.Show
End Sub
Private Sub Command2_Click()
cod = InputBox("Ingrese faena a imprimir", "Trabajadores a reportar")
temp.Close
Set DataReport1.DataSource = Nothing
consulta = "select * from trabajadores where faena=" & cod
temp.Open consulta, base, adOpenStatic, adLockReadOnly
Set DataReport1.DataSource = temp
DataReport1.Show
End Sub
Private Sub Command3_Click()
unloadme
End Sub
Private Sub Form_Load()
Set base = New Connection
Set temp = New Recordset
base.Open "dsn=data"
temp.Open "trabajadores", base, adOpenDynamic, adLockBatchOptimistic
End Sub