Visual Basic - ERROR EN DATA

Tengo un control data1 con el cual busco un codigo de barras q se encuentra en una base de datos acces 2000 cunado introdusco el codigo en el texto y doy enter busca el codigo en la BD

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim Codigo
Codigo = Text1
Data1.Recordset.FindFirst "[Codigo de Barras]= " + Codigo 'aqui esta el error ya q me dice no coinciden los tipos de datos en la exprecion de criterios
If Data1.Recordset.NoMatch Then
MsgBox "No está"
End If
End If

End Sub

Prueba data1.recordset.find "Codigo de barras like ' " & codigo & " ' "
Asegurate que la variable codigo es del mismo tipo de datos que los datos introdicidos en codigo de barras.
SUERTE!!!

CONSEJO: No utilices espacios ni acentos, ni caracteres especiales al llamar a tablas, columnas ni variables.
Utiliza Codigo_de_barras te evitaras algun problemilla.