[alshandodi]

استخدم هذا الكود في الموديول لتعبئة داتا جريد فيو

كود :

Function FillDataTable(StrSQL As String) As DataTable
       Dim dtFill As New DataTable
       Try
           dtFill.Clear()
           Dim da As New OleDb.OleDbDataAdapter(StrSQL, con)
           da.Fill(dtFill)
       Catch ex As Exception
       End Try
       Return dtFill
   End Function

في تحميل الفورم اضع هذا الكود

كود :

   Dim dt1 As New DataTable

       Dim StrSQL1 As String = "select  * from Users_Permission"
       dt1 = FillDataTable(StrSQL1)
       DataGridView1.DataSource = dt1

في زر البحث هذا الكود 

كود :

Dim dt1 As DataTable
           If CBSearch.SelectedIndex = 0 Then

               Dim StrSQL1 As String = "select  * from Users_Permission  where EmpID like '" & TxtSearch.Text.Trim & "'  "
               dt1 = FillDataTable(StrSQL1)
               DataGridView1.DataSource = dt1

اريد اخفاء مصمم البرنامج ومدير البرنامج