Visual Basic - abrir base de datos desde visual basic

Como puedo acceder desde visual basic a una base de datos protegida con contaseña

gracias,gracias,gracias,

Asi:

Set db = OpenDatabase(nombredb, False, False, ";pwd=laclave")

por nada, por nada, por nada

Como quedaria la instruccion si utilizo un DSN