Hola
Crea un recordset con la select igualada al código, es decir:
Código:
Reg.open "Select Cod from tabla1 where cod=" & text1.text , bd, adOpenStatic, adLockOptimistic
Luego, comprueba si el recordset esta vacio:
Código:
if reg.eof and reg.bof then
'El número esta libre
else
Msgbox "El cod ya existe"
end if
--Saludos--