[محمد العامر]

وجدة الحل يا أخوان
مرفق لكم الكود

كود :

   'تحميل البيانات في قريد كونترول ديف اكسبرس
   Public Sub LoadAllAS(ByVal TBName As String, ByVal Devdgv As DevExpress.XtraGrid.Views.Grid.GridView)

       Dim dt As New DataTable
       Dim da As New SqlDataAdapter
       dt.Clear()
       da = New SqlDataAdapter("SELECT ID, Name, Nationality, Addres, Gender, Email, PhoneNumber, Degree, Major, LPLevel, Department, Position, PositionApplyFor, YearsOfExperience, EnglishLevel, AreYouonDuty, DateofJoining, YourLastSalary, ExpectationSalary, CVLink,
                         source, Provideby, DateOfLoad, Addby, Editby, Completionstatus
       FROM     tbl_infostaff
       WHERE  (Completionstatus like N'" & TextBox14.Text & "%" & "')", con)
       da.Fill(dt)

       Devdgv.GridControl.DataSource = dt
   End Sub