Public Function CountriesConc() As String
Dim rst As ADODB.Recordset
Dim strCountries As String
Set rst = New ADODB.Recordset
rst.Open "YourTableNameHere", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
Do Until rst.EOF
strCountries = strCountries & rst.Fields("Country") & "/"
rst.MoveNext
Loop
strCountries = Left(strCountries, Len(strCountries) - 1)
CountriesConc = strCountries
rst.Close
Set rst = Nothing
End Function