certo obrigado..mais depos eu vou no vb e crio um form assim
Text = Assece com seu login e senha

Login : Textbox

senha : TextoBox

cmd entrar e cmd sair

certo e depois, ale...

Segue um exemplo :

Private Sub cmdenter_Click()

Dim Criterio As String
       
        Criterio = "Nome = '" & txtusuário.Text & "'and Senha = '" & txtsenha.Text & "'and Acesso = '" & Sim.Text & "' "

        TBSenhas.FindMin Criterio
       
        If TBSenhas.NoMatch = False Then
            MDIPrincipal.Toolbar1.Buttons(1).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(2).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(4).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(5).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(6).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(7).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(9).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(10).Enabled = True
            MDIPrincipal.Show
            Unload frmlogin
       Else
            MDIPrincipal.Toolbar1.Buttons(1).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(2).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(4).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(5).ButtonMenus(1).Enabled = False
            MDIPrincipal.Toolbar1.Buttons(6).ButtonMenus(1).Enabled = False
            MDIPrincipal.Toolbar1.Buttons(6).ButtonMenus(3).Enabled = False
            MDIPrincipal.Toolbar1.Buttons(7).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(9).Enabled = True
            MDIPrincipal.Toolbar1.Buttons(10).Enabled = True
            MDIPrincipal.Show
            Unload frmlogin
           
        End If
 
End Sub