try this....

[CODE]
Dim strID as string
strID = lvwContacts.SelectedItem.Text
RS.Open "Select * from tblPcontacts where id= '" & intID & "' ORDER BY id", CN, adOpenStatic, adLockOptimistic