sql语句查询需要一段时间，程序经常成了无响应状态，怎么解决？

Question

我用的是vb.net语言，以下是主要几句：Dim Cmd As New System.Data.OracleClient.OracleCommand
Dim ds1 As DataSet = New DataSet
Cmd.Connection = con
Cmd.CommandText = sql
adapter.Fill(ds1, "stat")
DataGridView1.DataSource = ds1.Tables("stat")查询的内容比较复杂，速度慢，就像死机了一样。
怎样才能避免程序成为无响应状态呢？
要是循环语句经常会用到do events。但这种情况就不会解决了。

Answer 1

你是要SQL优化还是想修改VB代码呢？
如果前者就要贴SQL，后者加个最大等待时间

Answer 2

不是sql优化，就是要个像do events一样的效果，怎么加最大等待时间？
关键现在是查询需要半分多钟，程序就是无响应状态，查询完毕后会恢复。
怎么才能避免出现无响应状态呢？