Wesley,
Eu prefiro usar codigos sequenciais em chaves primarias, naum deixando o usuario escolher o codigo. Mesmo assim eh preciso verificar quando se esta trabalhando em rede.
No seu caso, faca assim:
Dim adoRecordset as ADODB.Recordset
glbPesquisa = "SELECT * FROM NomeTabela WHERE Codigo = '" & txtCodigo.Text & "'"
Set adoRecordset = New ADODB.Recordset
adoRecordset.ActiveConnection = glbConexao
adoRecordset.CursorLocation = adUseClient
adoRecordset.Open glbPesquisa, , adOpenKeyset, adLockOptimistic
If Not adoRecordset.EOF Then
'Existe um código cadastrado
Else
'Naum existe um código cadastrado
End If
te +