sql - select store プロシージャを介してクラスを介してデータグリッドを埋めるために必要なソリューション

Question

状況：

フォーム - dataGridView が含まれています (入力する必要があります)

クラス - すべての充填プロセスを含む必要があります

私はクラスで何をしていますか？

   

 Public Function prodcatgetdata(ByVal cmd As String) As DataTable
    Try

        Dim command As New SqlCommand(cmd)
        Dim dsprodcat As New DataSet
        Dim cn1 As New SqlConnection("data source =SC\SQLEXPRESS;initial catalog=mydb;integrated security=true")
        Dim daprodcat As New SqlDataAdapter(selectprodcat, cn1)
        cn1.Open()
        'daprodcat.SelectCommand = cmd
        daprodcat.Fill(dsprodcat)
        Return dsprodcat.Tables("m_prodcat")
        cn.Close()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Function

私は formload() で何をしていますか?

prodcatcls.prodcatgetdata(selectprodcat)

どこが間違っているのですか？