Visual Basic - Cambiar Password ADO

Hola, Que tal, espero me puedan ayudar,

Como puedo cambiar un password de una BD en Access. Ahora estoy abriendo la BD asi:

sgblPathBD = App.Path & "" & "bd.mdb"
'gcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & sgblPathBD & ";" & "Jet OLEDB:Database Password=edgar"
gcn.Open

Pero no se como por programa puedo cambiar el password, por seguridad.

Gracias de antemano
Saludos

Hola. Ya lo encontré. Se los comparto.

sgblPathBD = App.Path & "" & "bdSIA.mdb"
gcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sgblPathBD & ";" & _
"Persist Security Info=True;" & _
"Jet OLEDB:Database Password=" & sgblPasswordBD
gcn.Mode = adModeShareExclusive
gcn.Open
sqlExecStr = "ALTER Database Password " & strPwdNew & " " & strPwdAnt
gcn.Execute sqlExecStr

Saludos

Bueno, te escribo para decirte gracias; ya que yo también estaba necesitando eso.
Una consulta mas, sabés donde puedo conseguir una lista de todas las instrucciones SQL que se utilizan en ADO para vb6 ¿?
Desde ya muchísimas gracias.