a ver... de base de datos aún no sé... pero creo que el problema de quer no te sale con la variable es porque la estás pasando en texto plano...
Rs.Open "select * from Remitentes WHERE CodRem = ID order by CodRem", Cn, adOpenDynamic, adLockOptimistic
intenta pasarla como lo que es como una variable sin estár dentro de comillas de la siguiente manera
Dim ID As String * 6
ID= ListView1.SelectedItem.ListSubItems(1) ' ListView1.SelectedItem.ListSubItems(1)= PEJE05
Cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bdraicesDATA.mdb")
Rs.Open "select * from Remitentes WHERE CodRem = " & ID & "order by CodRem", Cn, adOpenDynamic, adLockOptimistic
otra cosa para concatenar cadenas de caracteres no uses "+" usa el apersand "&"
un saludo.