Visual Basic - Abrir Base de Access con contraseña

Necesitaria saber como abrir un recorset de un tabla de Access protegida con contraseña mediante codigo en visual basic 6. Muchas Gracias!

set objConexion = new ADODB.Connection
objConexion.Provider = "Microsoft Jet 4.0 OLE DB Provider"
objConexion.Properties("Jet OLEDB:Database Password") = "miclave"
objConexion.ConnectionString = "Data Source=" & miBD)

OJO: esto es la forma que uso yo, puede que hayan otras...
esto lo tomé de: http://www.able-consulting.com/