Hi, thanks for the video. But it does not solve my problem Here is some of my code dt3.Clear() Dim SetaString As String If cmbSetaSelection.Text <> "" Then SetaString = "b.[SETA] = '" & cmbSetaSelection.Text & "'" Else SetaString = "b.[SETA] is NOT NULL " End If ' ''''''''''''''''''''''''''''''''' ' ''JOIN SQL statemnt ''''''''''''''''''''''''''''''''''''''' FieldsString = "a.[id] , a.[National_Id] , a.[Alternative_Id_Type], a.[Person_Alternate_Id] ,a.[Person_First_Name] ,a.[Person_Middle_Name], a.[Person_Last_Name], a.[Equity_Code] , a.[Person_Birth_Date] , a.[Person_Title] , a.[Gender_Code] ,a.[Citizen_Resident_Status_Code] , a.[Disability_Status_Code], a.[Home_Language_Code], a.[Nationality_Code], a.[Socioeconomic_Status_Code], b.[id], b.[seta], b.[OFO_Code], b.[ProgramName], b.[DateRegis], b.[datecomp], a.[Person_Home_Address_1] , a.[Person_Home_Addr_Postal_Code],a.[Person_Home_Address_2], a.[Person_Home_Address_3], a.[Person_Postal_Address_1], a.[Person_Postal_Addr_Post_Code], a.[Municipality], a.[Person_Postal_Address_2], a.[Person_Postal_Address_3], a.[Province_Code], a.[Person_Phone_Number], a.[Person_Cell_Phone_Number], a.[Person_Fax_Number], a.[Person_Email_Address], a.[Campus], a.[CollegeID], a.[Level_grade]" FieldString2 = "SELECT distinct " & FieldsString & " FROM Student a right JOIN QUALIFICATION b ON a.[id] = b.[id] where " & SetaString & " group by a.[id] , a.[National_Id] , a.[Alternative_Id_Type], a.[Person_Alternate_Id] ,a.[Person_First_Name] ,a.[Person_Middle_Name], a.[Person_Last_Name], a.[Equity_Code] , a.[Person_Birth_Date] , a.[Person_Title] , a.[Gender_Code] ,a.[Citizen_Resident_Status_Code] , a.[Disability_Status_Code], a.[Home_Language_Code], a.[Nationality_Code], a.[Socioeconomic_Status_Code], b.[id], b.[seta], b.[OFO_Code], b.[ProgramName], b.[DateRegis], b.[datecomp], a.[Person_Home_Address_1] , a.[Person_Home_Addr_Postal_Code],a.[Person_Home_Address_2], a.[Person_Home_Address_3], a.[Person_Postal_Address_1], a.[Person_Postal_Addr_Post_Code], a.[Municipality], a.[Person_Postal_Address_2], a.[Person_Postal_Address_3], a.[Province_Code], a.[Person_Phone_Number], a.[Person_Cell_Phone_Number], a.[Person_Fax_Number], a.[Person_Email_Address], a.[Campus], a.[CollegeID], a.[Level_grade] " myCommand = New SqlClient.SqlCommand(FieldString2, con) adp2 = New SqlDataAdapter(myCommand) adp2.Fill(dt3) Grid_Select_Student_For_Edit.DataSource = dt3 Dim saveFileDialog1 As New SaveFileDialog() saveFileDialog1.Filter = "Excel File 2003|*.xlsx|Excel File 2007|*.xlsx" saveFileDialog1.Title = "Save an Excel File" saveFileDialog1.FileName = ExFileName saveFileDialog1.ShowDialog()