ช่วยดูให้หน่อยครับ ที่ผมจะทำคือ ใช้ Combobox 2 ตัว ตัวที่ 1 ชื่อ cmbtype

' Select ค่ามาใส่ใน cmbtype
sqlSelect = "select * from Type_Tools"
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With
        da = New SqlDataAdapter(sqlSelect, Conn)
        da.Fill(ds, "Type_Tools")

        With Me.cmbtype
            .DataSource = ds.Tables("Type_Tools")
            .DisplayMember = "Name"
            .ValueMember = "Type_id"
        End With

' เมื่อมีการเปลี่ยนตัวเลือกใน cmbtype cmblot ก็จะแสดงข้อมูลที่เกี่ยวข้องออกมา
Private Sub cmbtype_SelectedValueChanged(ByVal sender As Object, ByVal e _
 As  System.EventArgs) Handles cmbtype.SelectedValueChanged

 Dim sqlSelect As String = ""

        sqlSelect = "Select *from Tools "
        sqlSelect &= " where(Type_id ='" & cmbtype.SelectedValue & "') "    
' พอRunแล้วติดตรงบรรทัดบนนี้อะครับมันฟ้องว่า Operator '&' is not defined for string " where(Type_id ='" and type 'DataRowView'.
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With

        If isFind2 = True Then
            ds.Tables("Tools1").Clear()
        End If

        da = New SqlDataAdapter(sqlSelect, Conn)
        da.Fill(ds, "Tools1")
        With Me.cmblot
            .DataSource = ds.Tables("Tools1")
            .DisplayMember = "Lot_id"
            .ValueMember = "Tool_id"
        End With
        isFind2 = True