Dim newReady_ch_ip As Integer
 
conn.Open()
            Dim sqlquery7 = ("SELECT new_ch_ip FROM new_host WHERE new_id ='" & _
              check_key & "'")
            Dim mycommand7 As New MySqlCommand()
            mycommand7.Connection = conn
            mycommand7.CommandText = sqlquery7
            myAdapter7.SelectCommand = mycommand7
            Dim mydata7 As MySqlDataReader
            mydata7 = mycommand7.ExecuteReader()
            mydata7.Read()
            newReady_ch_ip = mydata7(0)
            conn.Close()