SoloCodigo

Hola soy nuevo en el foro me gustaria saber si se puede hacer mi tiempo de respuesta mas rapido en visual basic y como lo haria porque estoy haciendo el codigo y este es el siguiente:
  Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click
        Dim fecha As Integer
        Dim mes, dia As Integer
        Dim strMes, strDia As String

        dgvData.Visible = True
        mes = dtpFecha.Value.Month
        If mes < 10 Then
            strMes = "0" & mes
        Else
            strMes = mes
        End If
        dia = dtpFecha.Value.Day

        If dia < 10 Then
            strDia = "0" & dia
        Else
            strDia = dia
        End If

        fecha = dtpFecha.Value.Year & strMes & strDia

        cadenaConsulta = String.Format("Select  fecha, mlevel, articulo, contrato, orden " & _
                                       "From  ordenesk1 " & _
                                       "GROUP BY " & _
                                       "fecha, mlevel, articulo, contrato, orden " & _
                                       "Having fecha >= {0} And contrato Like 'MP%' " & _
                                       "Order By  fecha ", fecha)
        Me.Cursor = Cursors.WaitCursor
        Try

            pgAdapter = New NpgsqlDataAdapter(cadenaConsulta, pgConeAS400P)
            ds = New DataSet
            pgAdapter.Fill(ds, "OrdenesK")
            dgvData.Rows.Clear()

            'Sirve para cargar la data de los datos
            For Each dRow As DataRow In ds.Tables("OrdenesK").Rows
                dgvData.Rows.Add(dRow("fecha"), dRow("mlevel"), dRow("articulo"), dRow("contrato"), dRow("orden"))
            Next

            For Each dgvRow As DataGridViewRow In dgvData.Rows

                cadenaConsulta = String.Format("Select  ppfami, ppfpar " & _
                                               "From  produteji_ppteji " & _
                                               "GROUP BY  ppfami, ppfpar " & _
                                               "Having  ppfami Like '%{0}%' And ppfpar >= {1} " & _
                                               "Order By ppfpar " & _
                                               "Limit 1", _
                                               dgvRow.Cells("dgcarticulo").Value, dgvRow.Cells("dgcfecha").Value)

                pgAdapter = New NpgsqlDataAdapter(cadenaConsulta, pgConeAS400P)

                ds = New DataSet

                pgAdapter.Fill(ds, "ppteji")

                If Not ds.Tables("ppteji").Rows.Count = 0 Then
                    dgvRow.Cells("dgcppfpar").Value = ds.Tables("ppteji").Rows(0)(1)
                End If
                cadenaConsulta = String.Format("SELECT RIT_ML, RIT_CD,RIT_IDPH, USRTipoLineaGalga " & _
                                               "FROM [CDSIncalpaca].[dbo].[RPD_INFO_TEX] " & _
                                               " WHERE RIT_IDPH = 'K00' AND RIT_CD LIKE '%{0}%' ", _
                                               dgvRow.Cells("dgcarticulo").Value)
                sqlAdapter = New SqlDataAdapter(cadenaConsulta, sqlCone)
                ds = New DataSet
                sqlAdapter.Fill(ds, "lineaCDS")
                If Not ds.Tables("lineaCDS").Rows.Count = 0 Then
                    dgvRow.Cells("dgclinea").Value = ds.Tables("lineaCDS").Rows(0)(3)
                End If

            Next
            Me.Cursor = Cursors.Default
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub
 
yo no veo nada malo en el codigo pero parece ser que se demora mucho en su tiempo de respuesta busca pero se demora mucho espero me puedan guiar.