SoloCodigo

estoy desarrollando una aplicacion con VB.Net para un dispositivo con Windows CE 4.2 y tengo el problema en la busqueda de un registro en archivo que tiene datos pero nunca me trae el que busco de acuerdo al parametro sino que siempre me dice que no se encuentra el codigo usado es este.

Private Sub TxtCodigo_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtCodigo.Validated
        Dim cn As SqlCeConnection
        Dim ds As New DataSet
        Dim adp As SqlCeDataAdapter = Nothing
        Try
            adp = New SqlCeDataAdapter
            cn = New SqlCeConnection(CLA.sConn)
            cn.Open()
            Dim cmd As SqlCeCommand = cn.CreateCommand
            cmd.CommandText = "SELECT * FROM TBLINV where CLAVE = " & Me.TxtCodigo.Text
            adp.SelectCommand = cmd
            adp.Fill(ds)
        Catch ex As Exception
            'MessageBox.Show(ex.Message, "Sistema de Inventario")
        Finally
            cn.Close()
        End Try
        '
        Dim cRow As Integer = ds.Tables.Count()
        If cRow = 0 Then
            MessageBox.Show("Codigo de Inventario NO Existe", "Sistema de Inventario")
            Me.TxtCodigo.Text = ""
            TxtCodigo.Focus()
        Else
            Me.TxtClave.Text = ds.Tables(0).Rows(0)(0)   'Codigo de Inventario
            Me.TxtUndMil.Text = ds.Tables(0).Rows(0)(1)   'Unidad Militar
            Me.TxtDepto.Text = ds.Tables(0).Rows(0)(2)    'Dependnecia
            Me.txtArticulo.Text = ds.Tables(0).Rows(0)(3)  'Equipo
            Me.TxtMarca.Text = ds.Tables(0).Rows(0)(4)      'Marca
            Me.TxtModelo.Text = ds.Tables(0).Rows(0)(5)     'Modelo
            Me.TxtSerie.Text = ds.Tables(0).Rows(0)(6)      ' Serie
        End If
    End Sub

   Si me pueden ayudar a resolver este problema Agradesco mucho