Visual Basic - Conexion

Hola, tengo la siguiente conexion a una DB en Access, pero nececito establecerle una contraseña que parte de mi codigo debo modificar para poder abrir mi DB.

Set CnDatos = New ADODB.Connection
CnDatos.CursorLocation = adUseClient
CnDatos.Provider = "Microsoft.jet.OLEDB.4.0"
CnDatos.ConnectionString = App.Path & "\BaseDatos\Video.Mdb"
CnDatos.Open

ni se te ocurra desieme lo siguiente porque no me funciona:

CnDatos.Open,"admin","contraseña"

Hola, gracias por la ayuda pero me sale elsiguiente mensaje de error:
No se puede iniciar la aplicacion.Falta el archivo de informacion del grupo de trabajo o bien esta abierto en modo exclusivo por otro usuario.