Msflexgrid

Hola lleno una msflexgrid pero el recordset m1 viene de otro form y ese me lo llena bien pero el nombre de pais esta en otra base de datos pero quiero por cada m1 que es un codigopais me muestre el nombre del pais
con lo que tengo me muestra solo el primer nombre pais del codigopais
Private Sub llenar1()
Set ss1 = ex.Execute("Select pais from pais where codigopais = '" & m1!codigopais & "'")
MS.TextMatrix(0, 1) = "codigopais"
MS.TextMatrix(0, 2) = "pais"
MS.TextMatrix(0, 3) = "monto"
fil = 1
Do While Not m1.EOF
MS.Rows = MS.Rows + 1
MS.TextMatrix(fil, 1) = m1!codigopais
'MS.TextMatrix(fil, 2) = ss1!pais
MS.TextMatrix(fil, 3) = m1![Suma De MONTO]
m1.MoveNext
fil = fil + 1
Loop
End Sub
gracias