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

وعليكم السلام...
تفضل المطلوب:

كود :

  Dim SQLstr As String = "SELECT * FROM books"
       Dim DataSet As New DataSet
       Dim DataAdapter As OleDbDataAdapter
       DataAdapter = New OleDbDataAdapter("Select * From الجدول Where حقل =yes", con)
       DataSet.Clear()
       DataAdapter.Fill(DataSet, "الجدول")
       datagridview1.DataSource = DataSet
       datagridview1.DataMember = "الجدول"