VB.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 like '%" & TextBox1.Text & "%'"
        sql = sql & " and dDate>='" & DateTimePicker1.Text & "' and dDate<='" & DateTimePicker2.Text & "'"
        sql = sql & " order by id"
        Dim cmd1 As SqlCommand = New SqlCommand(sql, sqledi)

        dataAdapter.SelectCommand = cmd1


        dataAdapter.Fill(dst, "B2B")
        dt = dst.Tables("B2B")

        sqledi.Close()

        DataGridView1.AutoGenerateColumns = True
        DataGridView1.DataSource = dt