Hola, te respondo a las preguntas 1 y 3 (la 2ª la desconozco)
1.- Para poner o modificar una contraseña de una DB Access
- En el menú Proyecto->Referencias marcas "
Microsof Jet and Replication objects 2.6 Library"
y pones este código en el evento Load del Form o en un CommandButton
Código:
Dim ClaveAntigua As String, ClaveNueva As String
Dim MiBD As String, BDTemporal As String
Dim je As JRO.JetEngine
Set je = New JRO.JetEngine
ClaveAntigua = "" ' contraseña actual (en este caso no tiene)
ClaveNueva = "Hola" ' nueva contraseña
MiBD = "bd1.mdb" ' BD a la que vamos a poner/modificar la contraseña
BDTemporal = "DBTemp.mdb" ' Nombre de la BD temporal que vamos a crear
' si la BD temporal ya existe, la eliminamos
If Len(Dir(BDTemporal)) Then Kill BDTemporal
BDTemporal = App.Path & "\" & BDTemporal
' compactamos la BD y le asignamos la contraseña
je.CompactDatabase "Data Source=" & MiBD & ";" & _
"Jet OLEDB:Database Password=" & ClaveAntigua, _
"Data Source=" & BDTemporal & ";" & _
"Jet OLEDB:Database Password=" & ClaveNueva
' eliminamos la BD original y renombramos la temporal
Kill MiBD
Name BDTemporal As MiBD
MsgBox "Contraseña cambiada"
La otra pregunta creo que entendí que quieres que cuando se haga click en cualquier celda, se marque la fila entera.
Bueno, si es así, solamente le tienes que poner la propiedad
FullRowSelect a True