Oppss !! I solved the problem
i must declare
vb Code:
  1. Dim rSLogin As adodb.Recordset
Instead of
vb Code:
  1. Dim rSLogin As Recordset

Thanks sir , you help me a lot.