Does anyone know whats wrong with this code: A error is brought back saying "Object Variable or With Block variable not set"


Private Sub lvwJourneys_Click()

TxtJourneyID.Text = Trim(lvwJourneys.SelectedItem.Text)Txtjourneyfrom.Text = Trim(lvwJourneys.SelectedItem.SubItems(1))
Txtjourneyto.Text = Trim(lvwJourneys.SelectedItem.SubItems(2))
Txtstandardmiles.Text = Trim(lvwJourneys.SelectedItem.SubItems(3))
End Sub