Editar Recordset via VBA

Dim rs As Recordset
Dim sSQL As String
Dim TXT As String

TXT = "201097904"

sSQL = "SELECT * FROM T_NC_Geral where NC_CD = " & TXT & " "
Set rs = CurrentDb.OpenRecordset(sSQL)

           rs.Edit
           rs!Indevida = 0
           rs.Update


Erro 3464 " Tipo de dados incompatível na expressão de critério "      

Na Tabela T_NC_Geral o campo NC_CD é tipo  "texto curto" ! Qual seria o erro?

Seu Problema está no Critério da Consulta sSQL

Se for Texto o campo NC_CD utilize:
sSQL = "SELECT * FROM T_NC_Geral where NC_CD = '" & TXT & "'"


Se for Numero:
sSQL = "SELECT * FROM T_NC_Geral where NC_CD = " & TXT & ""


O Erro: Esta informando Numero " & TXT & ". Alem de ter um Espaço desnecessário no final da Instrução. Neo sei se daria erro, mas o erro especificado é esse.