isteğinize istinaden aşağıdaki kodları eklerseniz

Private Sub Form_Load()

Dim Sql As String

sql = "select distinct bosaltmalimani from navlundata order by bosaltmalimani"

Me.listbliman.RowSource = sql

End Sub

ve ulkeSec kodunu

Private Sub UlkeSec()

Dim rc As DAO.Recordset

Dim Sql As String

Set rc = CurrentDb.OpenRecordset("T_Ulke")

rc.AddNew

    rc![ulke] = Me.ListUlke

rc.Update

Set rc = Nothing

Me.SelectedUlke.Requery

sql = "select distinct bosaltmalimani,bosaltmaulkesi from navlundata, t_ulke where bosaltmaulkesi=ulke order by bosaltmalimani"

Me.listbliman.RowSource = sql

End Sub

şeklinde düzenleyip denerseniz