Dim MyConnection As New OdbcConnection(MyConString)
            MyConnection.Open()
            sqlStr = "select username,user_password,user_type,user_id  "
            sqlStr = sqlStr + "from nuke_users where username='" + UserName + "'"
            cmd = New OdbcCommand(sqlStr, MyConnection)
            dr = cmd.ExecuteReader
            dbUserName = "ytciuyctirtcitrc"
            dbPassword = "kjhgkhgkjhgkhffj"
            While dr.Read()
                dbUserName = dr(0)
                dbPassword = dr(1)
                dbUserType = dr(2)
                dbUserID = dr(3)
            End While
            dr.Close()

            'Check that UserID found a record
            If (dbUserName <> UserName) Then
                rtnCode = "1"
                Call LogSession(dbUserID, UserIP, -1)
                MyConnection.Close()
                Return rtnCode
            End If