Agrupar por pais

Private Sub llenar()
MS.TextMatrix(0, 1) = "Pais"
MS.TextMatrix(0, 2) = "Codigo"
MS.TextMatrix(0, 3) = "Monto"
fil = 1
Do While Not m1.EOF
MS.Rows = MS.Rows + 1
If Combo1.Text = "2000" Then
Set rs = ex0.Execute("select codigopais, Sum(MONTO) AS [Suma De MONTO] from " & Combo3.List(Combo3.ListIndex) & " where rut = '" & m1!rut & "' group by codigopais")
If Not rs.EOF Then
MS.TextMatrix(fil, 1) = "'" & rs!codigopais
MS.TextMatrix(fil, 3) = rs![Suma De MONTO]
Set tt1 = ex.Execute("select pais from pais where codigopais = '" & rs!codigopais & "'")
If Not tt1.EOF Then
MS.TextMatrix(fil, 2) = "'" & tt1!pais
End If
Private Sub Command1_Click()
Set m1 = asoc.Execute("select * from hoja1")
llenar
End Sub
tengo esto que me los muestra en un flexgrid pero se me repiten los paises como puedo hacer para que me muestre solo una ves el pais y sume los monto
ejemplo
mexico 2 mexico 5
chile 3 chile 3
mexico 3
gracias saludos