Добавить параметр в dataAdapter.fill ()

Я пытаюсь добавить параметр в sqlDataAdapter. Я пытался использовать parameters.add (), но адаптер не является sqlCommand. Вот часть моего кода.

Private Sub convertToCSV(ByVal SqlQuery As String)
        Dim Dt As New DataTable()
        Dim SqlCon As New SqlConnection("Data Source=db;Initial Catalog=productionservicereminder;User Id=id;Password=pass;")
        Dim Ada As New SqlDataAdapter(SqlQuery, SqlCon)

        Ada.Fill(Dt)

  Public Sub excSP(ByVal ReprtID As Integer, ByVal pgid As Integer)

 convertToCSV(sql4)

End Sub

В основном я пытаюсь сделать что-то вроде этого:

Ada.Parameters.Add(New SqlParameter("@pgid", pgid))