Dim rdrPeople As System.Data.SqlClient.SqlDataReader
        Dim cn As New System.Data.SqlClient.SqlConnection("data source=ZAV-PPO1\VSdotNET;initial catalog=grafic1;integrated security=SSPI;pe" & "rsist security info=False;workstation id=ZAV-PPO1;packet size=4096")
        Dim cmd As New System.Data.SqlClient.SqlCommand("SELECT login, pass from id_user where login ='" & Me.TextBox1.Text & "' and pass = ENCRYPT('" & Me.TextBox2.Text & "')", cn)
        Dim strName As String
        cn.Open()
        rdrPeople = cmd.ExecuteReader()
        While rdrPeople.Read()
            strName = rdrPeople.GetString( 0 ).Trim()
        End While
        cn.Close()