Hola, no es conveniente utlizar DAO en NET, incluso ya en la versión 6.0 de Visual Basic, MS recomendaba migrar a ADO.
Aún así, para abrir una BD con contraseña en DAO, supongo que será igual que en VB6:
.
OpenDatabase(My.Application.Info.DirectoryPath & "\bdrancho.mdb", False, False, ";PWD=LaClave")