[ahmedhhh2]

عدلت الكود هكذا  لاكن لا تظهر بيانات وعند ازالة  [vesits.date of vesit]=22/06/2009 تظهر كل البيانات اريد اظهار البيانات بتاريخ 22/06/2009 فقط

كود :

       Dim dss As New DataSet
       Dim da As New OleDbDataAdapter("Select * from vesits,[patent data] WHERE [vesits.date of vesit]=22/06/2009 AND[patent data.patent code]=[vesits.patent code] ", con)

       da.Fill(dss, "Table1")
       DataGridView1.DataSource = dss.Tables(0)