.net下实现DataGridView手动绑定数据

Dim dataAdapter As New SqlDataAdapter
        Dim dst As New DataSet
        Dim dt As New DataTable
        Dim i As Integer
        Dim iQty As Double
        Dim iMoney As Double

        Dim sqledi As New SqlConnection(connEDI)

        If TextBox1.Text = "" Then
            MsgBox("请输入单号")
            Exit Sub
        End If

        sqledi.Open()
        sql = "SELECT dDate, cCode, cPART_NO, cInvCode, cInvName, cInvStd, cBatch, iQty, iPrice, "
        sql = sql & " iMoney, cUnit, iUnitID, cCurr, iCurrID, cUser, cIN_COMP_CODE, cOUT_COMP_CODE, "
        sql = sql & " dUpDate, Guid, cMemo, cB2BFileName, dAddDate"
        sql = sql & " FROM UC_B2B where(1=1) and isnull(cB2BFileName,'')='' and cBGName='" & ComboBox1.Text & "'"


        If TextBox1.Text <> "" Then sql = sql & " and cCode