到期超时VB.Net

Question

我正在我的应用程序中转换SQL请求，这非常大，需要大量的训练。当我在SQL服务器中执行请求时，需要时间，但我有结果，但是当我在我的应用程序中执行它时，经过几秒钟后，它会给出一个Time out Expiration错误。

这是我的VB.Net按钮：

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    Dim str As String = "Data Source=----;Initial Catalog=----;Persist Security Info=True;User ID=---;Password=---"
    Dim con As New SqlConnection(str)
    Dim com As String = " ma Requête"
    Dim Adpt As New SqlDataAdapter(com, con)
    Dim ds As New DataSet()
    Adpt.Fill(ds, "Organisation")
    DataGridView1.DataSource = ds.Tables(0)
End Sub

有人可以帮忙吗？