diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index 6162c7533..6c8520fef 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -1174,6 +1174,7 @@ Public Class ClsCompras
         End With
 
         Try
+            SqlAdapter.SelectCommand.CommandTimeout = 0
             SqlAdapter.Fill(Data)
             If SqlAdapter.SelectCommand.Parameters("@Error").Value.ToString = "" Then Retorno = True