[اسامه الهرماوي]

تفضل:

كود :

       Dim da As OleDbDataAdapter
       Dim dt As New DataTable
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Dim Query As String = "Select * From TABLE1 Where 1=1"


       If Combobox1.Text <> "" Then
           Query = Query & " AND D LIKE '%" & Trim$(Combobox1.Text) & "%'"
       End If
       If Combobox2.Text <> "" Then
           Query = Query & " AND D LIKE '%" & Trim$(Combobox2.Text) & "%'"
       End If

       Dim cmd As New OleDbCommand(Query, con)
       da = New OleDbDataAdapter(cmd)
       dt.Clear()
       da.Fill(dt)
       Me.datagridview1.DataSource = dt