Dim newReady_ch_ip As Integer
 
Using con as New MySqlConnection ( ConnectionString )
  con.Open()
  Dim sql = "SELECT new_ch_ip FROM new_host WHERE new_id =?checkip"
 
  Using cmd As New MySqlCommand(sql, con)
    cmd.Parameters.AddWithValue("?checkip", check_key)
 
    Dim RetVal as Object = cmd.ExecuteScalar()
    If RetVal IsNot Noting then 
      newReady_ch_ip = CInt(RetVal)
    End If
 
  End Using
End Using