Depende de que jeito. Se vc já tiver um recordset aberto e quiser que haja foco no item relacionado numa listview, pode-se usar esse código.
Private Sub FocaItem()
lvwUnid.HideSelection = False
Dim LItem As ListItem, FindItem As String, NotFound As Boolean
' what to find
FindItem = txtIdUnid.text '("Find what?") 'Coloque aquio que vc quer achar na lista
' search in the list's Items
Set LItem = lvwUnid.FindItem(FindItem, lvwText, , lvwPartial)
If LItem Is Nothing Then
' if not found, then search for the same argument in the subitems
Set LItem = lvwUnid.FindItem(FindItem, lvwSubItem, , lvwPartial)
If LItem Is Nothing Then
NotFound = True
End If
End If
' if the item was not found anywhere, do nothing
If NotFound Then
'MsgBox "Não foi encontrada nenhuma ocorrência para o texto digitado", vbInformation, _
"Nenhuma ocorrência"
Exit Sub
Else
' else make the found item visible
LItem.EnsureVisible
LItem.Selected = True
'Debug.Print LItem.Text
End If
End Sub
