รบกวนช่วนแนะนำ วิธีการนำข้อมูลใน Data Gird มาใส่ใน combo box ด้วยครับ

'ผูกข้อมูลเข้ากับ cmbVendor
Private Sub GetVendor()
    dim cmd as string
    dim dtTemp as datatable

    cmd="Select distinct Vendor from tableName order by Vendor"
    dtTemp=SqlConnection.Excute(cmd)
    
    cmbVendor.DisplayMember="Vendor"
    cmbVendor.ValueMember="Vendor"
    cmbVendor.DataSource=dtTemp
End Sub


'เมื่อมีการเปลี่ยนแปลงค่าที่ cmbVendor
'ให้ดึง ToolNumberId ขึ้นมาใหม่
'และทำการเพิ่มไปที่ lstToolNumberID
Private Sub cmbVendor_SelectIndexChanged
        dim cmd as string
        dim dtTemp as datatable

        cmd="Select distinct ToolNumberID from tableName Where Vendor ='" & cmbVendor.SelectedValue & "' "
        cmd+= " Order by ToolNumberID"
        dtTemp=SqlConnection.Excute(cmd)
    
        'เพิ่มข้อมูลไปที่ list
        'คำสั่งเพิ่มใน list ผมไม่คุ้นอ่ะครับ อันนี้ไปหาอีกทีน่ะ
         For each dr as datarow in dtTemp.Rows
                  lstToolNumberId.Items.Add(dr("ToolNumberID ")
         Next
end sub


'เมื่อมีการเลือกที่ list ToolNumberID ก็ให้โชว์ข้อมูลใน List ที่เหลือครับ
Private sub xxxx
      cmd=" select * from tableName Where Vendor ='" & cmbVendor.SelectedValue & "' "
      cmd+=" and ToolNumberID='" & lstToolNumberID.text & "' "
     
      'ดึงค่าจะ db ได้แล้วก็เอาไปแสดงครับ
end sub