diff --git a/App_Code/ClsEncuestas.vb b/App_Code/ClsEncuestas.vb
index 119c69534..a5848e63b 100644
--- a/App_Code/ClsEncuestas.vb
+++ b/App_Code/ClsEncuestas.vb
@@ -411,7 +411,7 @@ Public Class ClsEncuestas
         Dim Retorno As Boolean = False
         DataAdapter("PA_Enc_EncuestasRespuestasGet", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEncuesta", SqlDbType.VarChar).Value = CveEncuesta
+            .Add("@CveEncuesta", SqlDbType.Int).Value = CveEncuesta
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -426,7 +426,7 @@ Public Class ClsEncuestas
         Dim Retorno As Boolean = False
         DataAdapter("PA_Enc_EncuestasRespuestasUpdate", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveRespuesta", SqlDbType.VarChar).Value = CveRespuesta
+            .Add("@CveRespuesta", SqlDbType.Int).Value = CveRespuesta
             .Add("@Respuesta", SqlDbType.VarChar).Value = Respuesta
             .Add("@CvePregunta", SqlDbType.Int).Value = CvePregunta
         End With
@@ -444,7 +444,7 @@ Public Class ClsEncuestas
         Dim Retorno As Boolean = False
         DataAdapter("PA_Enc_EncuestasRespuestasRemove", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveRespuesta", SqlDbType.VarChar).Value = CveRespuesta
+            .Add("@CveRespuesta", SqlDbType.Int).Value = CveRespuesta
         End With
         Try
             SqlAdapter.Fill(Data)