ruso en asp.net y sql server

Hola a todos:

Tengo un pequeño problema con el idioma ruso y es el siguiente. Cuando recupero de la base de datos los caracteres cirilicos todo el rato en la pagina web me los interpreta con caracteres de interrogacion (?). La base de datos la tengo modificado con la intercalacion en Cyrillic_General_100_BIN y esta me la interpreta correctamente, pero cuando lo muestro en la página web siempre esta con las interrogaciones. He provado a poner lo de uiculture, culture, elñ requestencoding, responseencoding pero todo el rato sale con las ?. Parte del codigo de vb es el siguiente:

Dim cmd_cargar As New ADODB.Command

cmd_cargar.ActiveConnection = cn

cmd_cargar.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc

cmd_cargar.CommandText = "pr_cargar_textos_presentacion"

Dim prm_idioma As New ADODB.Parameter

Dim prm_titulo As New ADODB.Parameter

Dim prm_texto1 As New ADODB.Parameter

Dim prm_texto2 As New ADODB.Parameter

Dim prm_texto3 As New ADODB.Parameter

Dim prm_texto4 As New ADODB.Parameter

Dim prm_texto5 As New ADODB.Parameter

prm_idioma = cmd_cargar.CreateParameter("idioma", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamInput, 3)

prm_titulo = cmd_cargar.CreateParameter("titulo", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamOutput, 500)

prm_texto1 = cmd_cargar.CreateParameter("texto1", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamOutput, 8000)

prm_texto2 = cmd_cargar.CreateParameter("texto2", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamOutput, 8000)

prm_texto3 = cmd_cargar.CreateParameter("texto3", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamOutput, 8000)

prm_texto4 = cmd_cargar.CreateParameter("texto4", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamOutput, 8000)

prm_texto5 = cmd_cargar.CreateParameter("texto5", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamOutput, 8000)

prm_idioma.Value = "rus"

cmd_cargar.Parameters.Append(prm_idioma)

cmd_cargar.Parameters.Append(prm_titulo)

cmd_cargar.Parameters.Append(prm_texto1)

cmd_cargar.Parameters.Append(prm_texto2)

cmd_cargar.Parameters.Append(prm_texto3)

cmd_cargar.Parameters.Append(prm_texto4)

cmd_cargar.Parameters.Append(prm_texto5)

cmd_cargar.Execute()

If cmd_cargar("titulo").Value Is DBNull.Value Then

Else

lbl_titulo.Text = cmd_cargar("titulo").Value

lbl_texto1.Text = cmd_cargar("texto1").Value

lbl_texto2.Text = cmd_cargar("texto2").Value

lbl_texto3.Text = cmd_cargar("texto3").Value

lbl_texto4.Text = cmd_cargar("texto4").Value

lbl_texto5.Text = cmd_cargar("texto5").Value

End If

Tengo algun parametro mal? Tengo que cambiar alguna configuracion?

Muchas gracias a todos