I got this so far:
VB Code:
  1. Set DB = OpenDatabase(App.Path & "\Stilo.mdb")

  2.   'Open the Contact table

  3.   Set RS = DB.OpenRecordset("SELECT * FROM Contact WHERE # = '" & 5 & "'")

  4.  
  5. What do i do next?

  6. How do i read the value to a textbox?