[مساعدة]

تفضل الكود لوضع النتيجة في ليست بوكس

كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim sql As String =
        "SELECT kk.name FROM (kk INNER JOIN mash ON kk.name = mash.name) INNER JOIN MTM ON mash.name = MTM.name_1 where  kk.name=?"

    Dim DataAdapters As New OleDbDataAdapter(sql, con)
    DataAdapters.SelectCommand.Parameters.AddWithValue("@name", TxTSerch.Text.Trim)

    Dim DT As New DataTable
    DataAdapters.Fill(DT)

    For Each r As DataRow In DT.Rows
        ListBox1.Items.Add(r.Item("name"))
    Next

End Sub