no me encuentra nada en la base de datos

Hola a todos: Estoy intentando hacer un programa que una vez introducido un codigo en un campo texto me encuentre en la base de datos access todos los codigos que empiecen por el primer digito introducido en el campo de texto. Mi problema es que no me encuentra nada y no tengo ni idea de porque, alguien me puede ayudar? muchas gracias. El codigo que tengo hasta ahora es: Private Sub Command1_Click() Dim codigo As Integer Dim primerDigito As Integer codigo = txtCodigo primerDigito = Left(codigo, 1) ' me quedo con el primer digito del codigo introducido por el usuario 'abro la tabla localización Set rs = DB.OpenRecordset("SElect distinct CodLocalizacion, Localizacion from Localizacion where CodLocalizacion like '" & primerDigito & "%' ", dbOpenDynaset) ' Comprobar que hay datos en el recordset With rs If (.BOF And .EOF) Then MsgBox "no existe ese codigo" Else 'me ha encontrado algo End If End With