erro no insert

[Alex Mauricio]

pessoal... tenho este código abaixo.... e não apresenta erro, porém também não insere a informação no BD

If Table_Situacao.RecordCount = 0 Then

ssql3 = "insert into TbSituacao values("

ssql3 = ssql3 & codigoSituacao & ",'"

ssql3 = ssql3 & situa & "')"

BancoDeDados.Execute ssql3

contador = contador + 1

End If

obrigado

[Alex Mauricio]

tenho observado que hora ele adiciona um registro, hora não....

porém quando adiciona é só 1... depois o programa continua rodando mas não incrementa mais

[kuroi]

acho q nem sempre o Table_Situacao.RecordCount ta sendo igual a 0.

[Alex Mauricio]

então kuroi

coloquei um break point para acompanhar

ok...

toda ele está ficando com o valor 0, monta a query e não tã inserindo

[kuroi]

dentro dessa sub tem, em algum lugar, a linha On Error Resume Next??

se tiver, comente ela e teste de novo.

é possivel q teja dando algum erro no insert q não esteja aparecendo por causa dessa linha (caso exista).

[Alex Mauricio]

hj não tem nenhum on error