Visual Basic - Generar password ¡¡ URGENTE URGENTE!!

Tengo un programa que genera su propia base de datos al iniciar, pero mediante codigo quiero que tambien genere una contraseña para la base de datos. ¿Alguien sabe como hacer esto?

Nombre de usuario = Numbre de la base de datos
Contraseña de usuario = Contraseña de base de datos

Si estas utilizando la biblioteca de datos DAO, el siguiente ejemplo crea un
nuevo usuario y lo añade al grupo \"Users\". Si el código lo vas a ejecutar
desde el entorno de Access, el espacio de trabajo predeterminado conoce la
ruta del archivo de información de grupo de trabajo (system.mdw), por lo que
no hay que establecer la propiedad «SystemDB» del objeto «DBEngine». De
utilizar otro espacio de trabajo distinto, debes de establecer dicha
propiedad antes de crear un nuevo objeto «Workspace»:

Dim wsMain As Workspace
Dim usr As DAO.User
Dim grp As DAO.Group

\' Referencia al espacio de trabajo que estamos
\' actualmente utilizando
Set wsMain = DBEngine.Workspaces(0)

\' Crea un usuario nuevo.
With wsMain
Set usr = .CreateUser(\"NombreUsuario\")
usr.PID = \"PID_Usuario\"
usr.Password = \"Contraseña\"
.Users.Append usr
End With

\' Lo agregamos al grupo \'Users\'. Si lo quieres agregar
\' a otro grupo, solamente tienes que cambiar el
\' nombre
With usr
Set grp = .CreateGroup(\"Users\")
.Groups.Append grp
End With