[alshandodi]

لك جزيل الشكر والتقدير اخي سعود واخي aljzazy 

على محاولتكم مساعدتي نجح الكود الذي من عندك اخي سعود وبعد تمعن كبير غيرت استعلام تعبئة داتا جريد فيو الأ وهو هذا الكود واتمنى للجميع دوام الصحه والعافيه وحفظكم الله من كل مكروه

كود :

Sub filldgv2()
       Try
           Dim DTUSERS As New DataTable
           DTUSERS.Rows.Clear()
           adapter = New OleDb.OleDbDataAdapter("select * from Users_Permission where Hideandshow = " & False, con)
           adapter.Fill(DTUSERS)
           DataGridView1.DataSource = DTUSERS
       Catch ex As Exception
       End Try
   End Sub