Try 
            'conn.Open() 
            Dim cmd As New OleDbCommand("SELECT ID, country FROM Identification_data", objConnection) 
            Dim dr As OleDbDataReader = cmd.ExecuteReader 
            Dim intIndex As Integer 
            Dim arrFields As New ArrayList 
            Dim arrIds As New ArrayList 
            Dim sortedList As String 

            While dr.Read 
                intIndex = dr("id").ToString 
                sortedList = dr("COUNTRY").ToString 
                ' myString = dr("country").ToString() 
                Dim spliter() As String = sortedList.Split(",") 
                Array.Sort(spliter) 
                For i As Integer = 0 To spliter.Length - 1 
                    If i < spliter.Length - 1 Then 
                        sortedList &= spliter(i).ToString & "," 
                    Else 
                        sortedList &= spliter(i).ToString 
                    End If 
                    arrFields.Add(sortedList) 
                    arrIds.Add(intIndex) 
                Next 
            End While 
            dr.Close() 
            For i As Integer = 0 To arrFields.Count - 1 
                Dim updCmd As New OleDbCommand("UPDATE identification_data SET country ='" & arrFields(i).ToString & "' WHERE id=" & arrIds(i).ToString & "", objConnection) 
                updCmd.ExecuteNonQuery() 
                updCmd.Dispose() 
            Next 
        Catch ex As Exception 
            MsgBox("LLLL") 
            MessageBox.Show(ex.Message) 
        Finally 
            objConnection.Close() 
            MsgBox("END") 
        End Try

Try 
            'conn.Open() 
            Dim cmd As New OleDbCommand("SELECT ID, country FROM Identification_data", objConnection) 
            Dim dr As OleDbDataReader = cmd.ExecuteReader 
            Dim amends as New Dictionary(Of Integer, String) 'system.collections.generics namespace

            While dr.Read 
                Dim bits() as String = sortedList.Split(","c)
                Array.Sort(bits)

                Dim id as Integer = DirectCast(dr("id"), Integer)
                amends(id) = String.Join(",", bits)
            End While 
            dr.Close() 

            Dim updCmd As New OleDbCommand("UPDATE identification_data SET country = ? WHERE id= ?", objConnection) 
            'dummy parameters of the correct type (string, int)
            updCmd.Parameters.AddWithValue("ct", "Dummy String")
            updCmd.Parameters.AddWithValue("id", 0)
            
   
            ForEach i As Integer In amends.Keys

                updCmd.Parameters("id").Value = i
                updCmd.Parameters("ct").Value = amends(i)

                updCmd.ExecuteNonQuery() 

            Next 
        Catch ex As Exception 
            MsgBox("LLLL") 
            MessageBox.Show(ex.Message) 
        Finally 
            objConnection.Close() 
            MsgBox("END") 
        End Try