Visual Basic - Operaciones con Horas

Hola a todos.

Tengo un par de dudas:
1.- Como puedo realizar una resta con tiempos (horarios). Por ejemplo como puedo saber la diferencia en minutos entre una hora y otra.
Lo necesito para un checador de horarios y debe negar la checada del dia si supera los 15 minutos de tolerancia.
Ejemplo:
If 09:20:00 (q seria la hora actual del sistema) - 09:00:00 (q es la hora de entrada) < 15 (minutos de tolerancia) then Negarle el acceso

2.- Como puedo ponerle a una BD Access 2000 contraseña, y luego en mi cadena de conexion desde VB abrirla usando esa contraseña. Mi cadena de conexion es la siguiente:

BD.Open "PROVIDER=Microsoft.jet.OLEDB.4.0;Data SOURCE=" & App.Path & "\servicio.MDB"

Gracias de antemano por su ayuda

Para lo 1ro. utiliza este codigo:
Private Sub Form_Load()
If Format(Now, "hh") <= "09" Then
If Format(Now, "hh") = "09" Then
If DatePart("n", Format(Now, "hh:mm")) > 15 Then
MsgBox "Acceso Denegado", vbCritical, "Validación Entrada"
End If
End If
Else
MsgBox "Acceso Denegado", vbCritical, "Validación Entrada"
End If
End Sub

Cuando tiene password BD agregale lo siguiente:
BD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\servicio.MDB";Jet OLEDB:Database Password=tupassword"

Me falto decirte como asignarle password a tu BD desdes Access.
1. Abres MS Access
2. Boton Abrir (MSA), buscas tu BD y en el boto abrir clic derecho (en la flecha que indica hacia abajo) y seleccionas "Abiri en modo Exclusivo".
3. Una vez abierta la BD en Menu Herramientas-->Seguridad-->"Establecer Contraseña para la Base de Datos" das clic y la capturas.

Gracias Miguel, tu ayuda en los dos casos me sirvio mucho!