Visual Basic - problemas con stored procedure

Hola, espero sepan ayudarme,

*tengo el siguiente codigo en visual basic:

Dim cn As New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=promociones;Data Source=(local)"
Dim pais As String
pais = "000"
Dim rs As New ADODB.Recordset
Set cmasql = CreateObject("ADODB.Command")
With cmasql
.ActiveConnection = cn
.ActiveConnection.CursorLocation = adUseClient
.CommandType = adCmdStoredProc
sq = "Exec consultar '" & pais & "'"
rs.Open sq, cn, adOpenDynamic, adLockOptimistic
End With
Label1.Caption = rs!pais
rs.MoveNext

* tengo el siguiente codigo en el procedimiento:

CREATE PROCEDURE consultar
@codigo varchar
AS
select pais from pais where cod_pais= @codigo
GO

El problema es: cuando voy a ejecutarlo y coloco
valores numericos me lo hace bien, pero cuando le pongo
un string me dice que es fin del registro.

Tengo en el diseño de la tabla:
cod_pais char 10
pais char 50

Tengo una confusión con los tipo y eso creo que es lo que
me da el problema.....

Alguien por favor que me ayude

Gracias de antemano....

Saludos desde Venezuela

los string delimitalos con comitas sencillas

SELECT * FROM mitabla WHERE IDpais='locombia'

como tienes los datos en tu BD??
cod_pais 0001,002 asi???
por otro lado tu declaras la variable de S.P. como varchar sin parametros y cod_pais es char (10)