ayuda con formulario de acceso

[maur1c10]

hola a todos por favor tengan en cuenta que soy novato en esto, les cuento tengo una base de datos y una tabla llamada Usuario y los campos LoginUsr y ClaveUsr y he hecho un formulario que al inicio te pide el nombre de usuario y la contraseña y tengo unos inconvenientes cuando le doy en el boton aceptar el formulario da el mensaje de bienvenida pero no se cierra y quisiera tambien que mientras no se haya introducido informacion no muestre la base de datos, de antemano muchas gracias
aqui el codigo del formulario de ingreso

Option Compare Database
Dim Conn As ADODB.Connection
Dim rsCliente As ADODB.Recordset



Private Sub aceptar_click()
'MsgBox ("nombre" & nombre.Value)
Dim txtbusca, SQL, txtpass

txtbusca = login.Value
txtpass = pass.Value
SQL = "select NombrUsr from Usuario where LoginUsr='" & txtbusca & "' AND ClaveUsr='" & txtpass & "'"

Set rsCliente = Conn.Execute(SQL)


If (Not rsCliente.EOF) Then
MsgBox ("Login y password correctos. Bienvenido " & rsCliente.Fields.Item(0).Value)
rsCliente.Close
Else
MsgBox ("El login y/o password son incorrectos")
End If



End Sub

Private Sub cancelar_Click()
Form_Unload (1)
End Sub

Private Sub Comando5_Click()

End Sub

Private Sub Detalle_Click()

End Sub

Private Sub Form_Load()
'MsgBox ("ANTES declarar nada")
Set Conn = New ADODB.Connection
Set rsCliente = New ADODB.Recordset

'MsgBox ("ANTES CONECTAR PROVIDER")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
'MsgBox ("ANTES CREAR DATASOURCE")
Conn.ConnectionString = CurrentDb.Name
'MsgBox (CurrentDb.Name)
'MsgBox Conn.State
Conn.Open
'Conn.Open

End Sub

Private Sub Form_Unload(Cancel As Integer)
Form.Visible = False
Conn.Close

'MsgBox "Hasta la próxima"
End Sub